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Abstract 


Director is a programming language deigned for dynamic graphic artificial intelligence, and 
naive uscts. ft is based upon the stclor or object oriented approach to programming and resembles 
Act l and SmallTalk. Dir*cr« oUHMli MaeLisp by adding a small «r of primitive actor, and the 
ability fo create new ones. its graphical features include an interface to the TV turtle, 
pseudo-parallelism, many animation primitives, and a primitive actor for making and recording 
"movies". For artificial intelligence programming Director provides a pattern^ irmed data base 
associated with each actor, an inheritance hierarchy, pseudo-parallelism, and a means of 
conveniently creating non-standard control structures. For use by relatively naive programmer. 
Director is appropriate because of its stress upon very powerful, yet conceptually simple primitive* 
and its verbose, simple syntax based upon pattern matching. Director code can be turned into 
optimised Lisp Which in turn can be compiled into machine Code. 


The author of (hi! work li currently' lijppcned by „„ IBM Fellow,!,Ip, Th. rntarch dumbed 

herein j! be,r e coodorttri ai >hc Artlfitiol Irlelljgeore UborMory, * MauMhuarlu IrutltUK or 
Technology research program. 


Page -1 



□iroc Lor Guice 


TbUh dF Conittoto 


Konnath Kahn 


CONTENTS 


I. The Ctrrenl 1^1 .............. 4 

II. An Introductory Example ............„........ g 

III. Stun Filling ............ j 


A. Creation and Destruction of AelOfi .. . ...J...... g 

H Defining the Behivit* of Actors .................. JO 

C. Printing .......... H 

D. Trittiig ....—... 13 

E. Memory Message* ..««,♦.<......... 14 

E arlabka .*..+....... P . 1 B..B.,.... iJ ..B.. l .. i ..... i ..... B .. B .. B .... a) .. i|i .^ ppipppppppp ^ ppppp ^ ++ [4 

It, Demons for Variable* ...... Jft 

3. Relational Data Bases ....... 19 

^ Or I XI El^ * * • i SJ 4 ptb MIM PI ■ 1 ■ «■ IJIIJ I|j pi, Pi, ■ ■ ■ i ■ 1 ■ J B + J ?+ + s fc + i| IBTlilli a 1IJl | I |'^ 

b. Rrlrin ing .....2® 

c Demon* and Virtual Ttertl*...... 21 

Forgetting ............. 23 

F. Plans and Pseudo-Parallelism..................... 23 

G. Braadtl»iing Messages ............... 2 $ 

II- Vrrublcs that are Special to All Actors ...£8 


IV. Object .. 


■ *■■! s+tr + ! 


liaivniBiiaBP+iiia# 39 


A. Creation and Appearance .. gfl 

B Showing and Hiding ... M 

G. Moving and Turnip ......... 33 

1. Turllc Commands ..................... 32 

2. Coordinate Message*.......... 34 

□ . Growing and Shrinking . 3G 

E. Gradually Changing (he Value of a Variable .. 37 

F Pens ...-... 37 

G, Special Variables ....... Jg 

P + ft+dktin ■ ■ r, ill, rail i*|| F + + 4 i ■ rtn ■ ■ ■ 39 


iff. Colors 


ii,i ■•LULHHH-riri 


1 ■ I II I EFpO lit IQtl ■■ •ir>i^ **1 F + ditirTin ■■ ■ ■ 1 in ■ M hu p + 4 „ , P1 fe«, , mmmmn m ni 1 + 4.1 - r + + 4 a fc + B aam aira , ■ ■ . 


Page - 2 



























Director Guidn 


Table qf Cool onto 


K onnel h Kahn 


j. Treating Objects a* Turtles ... . 

K. Appearance Definition Utlflg Insiatrt TurlJe 

L, NOP Standard Appearance + . .4 — 


r1r-rnr1a1aB-1ai1dahA4.rifaf14qi1.rqHB 


■ + + » P 


4J 

42 


+ i K + I + 1 EVB a ira ■ ■■■ Mf i f f f « i iif f ri ■ ■ ■ ■ 42 

r ra a i a ■ b a** a h t* + ri 11 p >Ti 


-■-rt-Tir 


Vi Tlif Screen fp+, IMII1l1iri< , l ii«ii l i X i t4i , h4 . +IT , 1l|riieil(IIIIIJ 

VI, Universe ..........4......u..*. 46- 

VII, Movir ................... . .. 4*J 

VIII, A Big 1 Lx ample ........ 50 

Di + Figure- I A Test of lFt Space War Program ........ t ., +pt+( ...,...^44,, 55 

X. Compiling ....... 56 

XI. Odds and F(ids . 1(t ., HH( 4 b i TT „.,, SO 


'MPHi i 


A. Debugging .............. GO 

B. Complete Description of Pattern* ... . .60 

C Clohal Variable... . . 6j 

D. Useful Lisp Functions and Macros ....... 

£. Discussion of Why Director is the Way i( is........... tl . h+ GJ 

F. Discussion of Why One Might Want to Use Director ..... 64 


a fad fad . r- r 1 1 r 


C. Ceiling' Started 

^ Bid ^ f CITP 5 II f -("4 1 1 ■ u ■ ifad. ■ i.d-d fa j q r _ at, rianar in 15 ■ ■ ■ j ■ 

XIII. 1 lidiieK of Pattern}.... 


“4 ■ + « H r + 4 m a + a iri ri a am a a .da iifJ a # + + *4 4 a r rrtTT 66 


65 


XIV, Index of Special Variables ...... 74 


Pegs - 3 















□tTHclor Guide 


Tha Genam) Idas 


Ksmeth Katn 


I. The Genern.1 Iden 

Director is an actur-bised extension cf Maclisp and b described in Al Working Paper J20. 
[Kahn 1976] This document is intended to help you use it. 

WhilE much of (lie work described here is intended for a graphics audience {describing 
much Simpler and more intuitive way* Of [hinting- about graphics and animation}, much of it 
Should be of interest to anyone interested in actors. Graphics is an ideal domain to lest out 
different styles of message passing in a way that is concrete. A face telling its mouth tu smile Is 
ped a gag Lea fly a much better example than a number being told in multiply by the result of 
factorial being SEnt the result of that number being asked to subtract one. 

The language if also usable as an Al larvgg*gfl. Each actor has rather sophisticated abilities 
including inheritance, a relational database with demons, and a pseudo-para lie! control structure. 
The language js currently grafted upon Maclisp, so that Jn> addition to lifts, atoms, numbers, 
lambda expressions and other Lisp entLties, Director provides actors and a few primitives for 
manipulating them. This Implementation strategy was one of necessity and many of Director's 
deficiencies would disappear were it built upon an Actor language such as Act I. 


Page - 4 


Dir-bcf.tr Guide 


An Introductory Example 


Kamel h Kahn 


II. An Introductory Example 

To get a general impression of what Director is all about [17 the following the next time you 

are logged into AI on a TV (if you want to try If without graphics read the "Getting Started* 

section). Start op the system by typing 
:direct <carriage retyrn> 

|Welcome to (M rector Version i 391 ; j a£ wAifA point Director fa ready for tnUntCti&ns 

(nsV poly make pent) ;; euaIt a polygon named pent 

(flilc pent show) ;j a default polygojt (a Aawgflrt) should appear 

(ask pont set your angle to 72) ;; U should non) look like a pentagon 

(ask poly make star) ;; make another poly named Slat 

(ask star set your angle to 144} iff fls eingfe to 144 

(ask star Show) ;; finally as A if to jAou 

(ask star forward ioD) ; t ask star to go foruurd 200 steps 

(ask star grow 2 50} ;; ajA the star to become 250 units lasgtr 

(ask star print) a if you are curious about &hat ifsr AhohU tty printing ii 

At this point* you might want to play around. If rhe typing is too much for you there are 

abbreviated version* of nearly all the messages. For example typing, 

task star &sypt (200 -100)) ;j fa f4* tame as typing 
(ask Star set your position to (200 -100)) 

; wAicA BifflttS go to the point 200 units over an-rf 100 dcJnm ftam the center 

A list of all the abbreviations is in the index it the end of this document. 

To make a little movie type the following 
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(ask star plan Paxt gr-ackrally shrink 300} 

; i start slowly jArinifnf taglnnin^ with the ncstf efocfc tick 
(ask star plan nexl gradually left GO) a plan tv gliV slowly turn lift 
(ask peril plan next gradually grow 300) ;; jteif fg r (he pentagon 
{ask pent plan next gradually rial’ll 90) 

{ask movie make tny-first-film) j; everything is ail planned sg lets make the movie 
{aik my-f irst-f i lm set your frames-per-second to £) 
j; if the computer were faster 20 might iw ni«r 

(ask my-first-f 1 lrs film the haxfc 6 ticks) ;; roll fAe camera! for the next 6 clock ticks 
(ask my-f trst-fi lm project) ;; ya« jutt saw the fUm being shot, no®r lets set It projected 


J 

I 

I 
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III, Something 

When you start up a new Director you initially have available to you only a few actors. The 
mosr important one is called; Something and it does every! hitig that every a Clou should be able lo 
do. In other words, Something maintains a memory, accept* print messages., mates Instances of 
itself, maintains plans for pseudo-parallelism (with the help of Universe), and cm be told how to 
handle new messages. Object, Movie, and Screen do graphical things and are described hater. 

livery actor it an offspring of Somelhing and ihereFore unless explicitly told otherwise will 
behave as Something does When receiving the message* Js this section. The Sections describing 
messages of Object, Movie, Universe, and Screen apply only to these actor* and their descendants. 
The relationships of all the actors initially present in Director is depleted in (he following diagram. 



This guide is organised by the patterns of message* an actor can handle. Each section 
describes a primitive actor by listing those message patterns directly associated with ft (|,e, those 
messages that the actor Ifielf handles rather than passing the problem on up to IIS parents or more 
distance ancestors). Variables that the actor treats specially are also described, 

A pattern is a list of words Dr patterns. If a word 'begins with a, question mart (?) or a T 
then it I* treated specialty. Pal terns are matched against messages, A question mark meahS that 
anything may be typed in the corresponding position of a message. If a question mark is followed 
by a word, then that word becomes the name of the What you typed in the corresponding position 
in the message, A £ means that any number of sub-item (even- zero) can be at the corresponding 

I 

position Of the message. For example, the message j\l eat pot stickers)" matches cht pattern "(1 
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Action Eihingsf and is a result the name 'action" temporarily gets the value Vat* nn-di rh« word 
"things" is bound to (le gets the value) "(pot sticker*)" Currently the can only be used at the 
end of a pattern. 

You may type upper or lower case letters as you prefer. The patterns given in eMj paper use 
capital letters for required words and lower cue For variable name* in pattern*. If there is an 
abbreviation for a'patrern in the text then it Jinn the far right of the pattern. 

Creation tend Dent ruction of Aotors 

(ASK fanyonc HWE ?na«e) 

This causes an instance of the receiver of the message to be made and returned. The newly 
created actor will behave exactly as its parent does (except when asked for its name, offspring, or 
parent's name or course), You can tell it new things to remember or ho* to behave if u receives 
new kinds of messages. If there was already an actor around with the same name it will be 
destroyed and replaced by this new one. 

Any time you want to ask an atior anything you type “(ask * then its name, the message 
and end with a So to create an actor named Sally just type, 

(ask something make Sally) 

(ASK 7unyooe Mh«E INTERNfD OFFSPRING) mio 

This behaves just like "make friamE" except that here you lets Director pick a name. 1 

(A5fc ? any one HAKF UMIMTE R NEC OF F5PR INC) nu 0 

This behaves hke the previous one only the name it picks can not be typed in. To talk to 

L Ml* it an abbrt»ill inn for "iruks tnLcrncd offspring 1 C you can ]u*[ II well type (aik jor (I'm i n}. The 
"S" P* nnwki) Hi cijyn^| Dirc&ter that what ffrllnwK is Jr ubihrrvia.Lmr. 
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the resulting actor you must either save the result of this message in a Lisp variable or have some 
Other actor store jt F 

(ASt fanyona IF WEV HAKE Tname) ! inm y 

It there already exist; an actor with the urn? name then nothing happens otherwise one la 
made. Name is retvrned Jn either case. 

(A5K ?anyone HAKE COPf ^Sibling) y 

Ar> exact copy of the recipient in this message transmission is created. The only differences 
between the new actor "sibling" and tFie recipient are their names and that the newly created actor 
has no offspring. Of course, afterwards they may be told different facts and how to handle 
messages. This creates an Identical twiri while the other H Mak*“ messages create children. One big 
difference Is that if you change a twin its sibling is not affected but if you change a parent then its 
children potentially wiEF be affected. 

m 

^ ASK ? a nynhe HAKE 5YNQNYH 7name) ms ? 

This does nor create a new actor. Instead the recipient is given an alias, another name with 
which you cam use to send It messages. Besides providing a way to give shorter names to any 
.actor, this is often useful when the name is a list. Fcr example, if you have an actor that la the 
comparison between A and B then you can define the comparison and give It equivalent name as 
follows, 

(ask sons thing mafc.g { c umpa r i son-0 f A E J) 

(as*; <eottparison-of A &J make synonym (comparison-of a A)) 


1. Oic nnly reaKon fer pulling up with ihit itiMnvtrier*cp if so that the actor Li suihjeet Is rarbajre 
collccliofi., MS. will pd iway when ydit nu leri|*er Cio pel lei it Id IsL st anyth ine. 
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Defining the Behavior of Actors 

(A 5 K fanyone m VHEN RECEIVING ?pattcrn Jtattion) dwr 7 S 

This very important mcsn^r type expand* the repertoire of an actor. The "t" indicates [.bat 
"action" Is to be the name Of the part oF the message that follows the "pattern". 

Suppose you want to make an IClOr named “Sally" - who will respond With "yes it is a nice 
day, morning or evening" when you say "good morning, evening or whatever". You just type. 

(ask something make Sally) 

(ask Sally do when receiving (good ?tiBE-o i f-day) 

l ; if Sally rttel^ts !ht ward good followed by another word 
;; me ttfill call by the name tlitifof'day then 

(type * r (yes ft is a nice ,tImo-of-dayD) 

If the comma had not preceded the variable "tmw-af-day” then she would always type the message 

"yes it is a nice time-of-day" To test it out WE again, ask Sally something, this time to respond to 

"good morning". 

(ask sally good morn lag) 

E fC iwAtcA she respond* 

YES n IS A NICE HORUJNG 


(ASK ?anyone EXTEND BEHAVIOR WHEN RECEIVING ^pattern BY DOING Ksome-ictfon) ebwr 7 bd 
This is useful for extending the behavior of an actor in response to a message that it already 

I 

can respond to. If while running ■some-action" a message is sent that matches the "pattern”, then 
this new clause is Ignored and the old action is taken 1 Suppose you Want Star to move forward 
and in addition grow whenever it IS told to go forward- 


1 . The [rid 115 rtlldn Lhr Elindarrl - rcwi*e" message it nnl defined 16 hnliave iIlsb wiy j* t-i> nf|fn> J-CCuri-iOn. 

If c*ch receiver clause were itself a full acipr tlwii cslcnditu: choir behavior could lie done in a much 
-cleaner -wav. 
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(ask star extend CutftiVlor wfien receiving (forward faiiountj by doing 

(script: (ask i&frlf iprow .tnoUnt) ;; cj4 yours rtf ti ^tpe/ the W tie tfrtttfUflf 

(ask :self forward ^ annual-} }) ;; sind along the message to ycurstlf 

Vnu could have used "star" instead of "seir but ;self will also work right if you make any oFFspring 
of Star and ask them to go forward, since ^elf always contains the name of the original recipient of 
the message. The word 'script:* is used no protect the commas. Retail that they mean use the 
value oF the Following expression and so without the word "script:" Director would be con Fused and 
say that "amount* has no value when you type the above expression. Using the word "script" 
means that the comma should get Che value pf the following expression when the SttipL IS being 
run. To learn how to remove extended behavior, if no longer wanted, see the "remove clause 
For.," message below. 

Jf you are confused about how this message differs from (hi "do when receiving" message 
above try making some actor and tell it "do when receiving" with the same pattern and action as 
above, Then tell it to go Forward some small amount. After you get the idea type contnol-g (while 
holding down the control button (ctrt) type g). 


Printing 

(ASK ?anyone PRiHI Xoptlon) ps OR pm OR pv OR pdb 

The possible "options" are "script", “memory", “variables", "database* or "all", If no Option or 
"flll" is given then all are assumed. They cause the script or the memory of the recipient to be 
printed. The memory is split up into "variables" and "database". If a second option is given it it 
assumed to be a file name to which to print. So lo print the entire definition of Sue to a file type 
(ask Sue print all Sue TTls) 

This will cause Sue to be printed out m a form that is designed to be easiest to read- It can 
not be read back into a Director however, To do that use the Following tnesaage 
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(ASK ?anyone SAVE Kflle-naM) 

TbJS message causes the recipient Co print itself out in Lisp onto the Tile-name”, If 9 k file of 
that name already eNIStS il will add itself to the end. You tan tall the Lisp compiler Upon the file 
or just Uic this to save away *n acidr onto file. Using the Lisp function "Load" you can get the 
saved actor hack into another Director. If no file-name is given then it will return the Lisp form 
Instead. This docs not work If the actor is compiled as is the case wuh all the actors available In a 
fresh Director, If you Want to save awsy Sally and Sue for another lime, for example, then type 

Hi 

Casu sally savs flower file) pul salty In tkt flit called flower file 
(ask sue save flower file) jf sue Met* too 

So another time if you want Sally and Sue just type (load Xflower file)*. 

(ASK ?anyori& HELP StpatternJ 1 

This. the recipient to print «ll Comments about the different messages It can rttd¥e. 

If no pattern is given then all (he different messages art described. If a pattern Is gven then only 
those that match the pattern are printed. So to see all the messages that begin with the word 
"project" that a movie can handle just type 
(ask movie help project X) 

(ASK ?anyone RE CALL CLAUSE FWt )ls amp la-message 3 " rcT 7 

This wj|| return the first clause that matches the "sample-message", NIL is returned if the 

Clause ii compiled or If nothing matches the message. For example* If you tell Sally, 

(ask sally do when resolving (bye ?when) '(goodbye ,whenj) ;j *g (ask sally bye runs) 
(ask sally recall douse for bye any-Ol-tIme) 

((&V£ ?VHEN> '(GOODBYE ,WHEIf)> :: is returned 

(ASK funyone REMOVE CLAUSE FOR Xsample-.tnessiga J 
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ThJi removes the first clause to catch the "sample-message - . Von can even, remove clauses 
from the compiled primitive actors such is Something and Object so use this message with care, 

Tracing 

(ASK. ^anyone Trace ^pattern c11 on) 

If any transmission occurs that match the "pattern" then a comment that it happened it 
printed and the action . if ary, is taken- Finally the message is sent and a corn mem is printed 
describing the results- A transmission is the recipient combined With the message This il SO that 
you can ask a parent Co trace some or all messages passed to it from lu offspring. If y nu want to 
see all the messages for Sally that begin with either grow or shrink, you should ask her to trace by 
typing 1 

(ask selly trace (sally {or grow shrink) *})j 

or if you want 1 break point when she or any of her descendants receives % message that changes 
The Value of the variable "site" then type 

(ask sally trace (7 {or set change} your size to ?) (break sUe-being-set)} 

If you want to trace every message that Sally and her descendants receives you can type 
(ask Solly trace) ;; tame ai far* saiif tract IV) 


(ASK 7anyone UNIRACE TpattErn) 

Thu removes any traces that match the "pattern", ir no pattern Is given (the message is 
simply untrace) then ad traces on that actor are removed, Untrace removes traces from the actor 
receiving the message and all dF its descendants. Therefore to remove all traces from everyone just 
type "(ask SOfTWthing untrace)" 


I. Pa| form in 111 rector nr- he mi>re complicatscl than described so Far. A complete description *f pattern* 
can in; found in a taler aucLmn. The ukc of {] and sir in the et ample* here mean that the pattern i-iie-teed* 
if il nialrhdt cither uf the flit pattern*. 
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Memory Messages 

Something (and since a]] actors are defendants of Something this is true of all actors in 
Director) has twtr kinds of memories, variables and a relational data base. The variables are 
known by the actor that was originally told to set them and Indirectly by all of its offspring and 
more distant descendant*. The data haw dS good for remembering any list structure and recalling 
it later with a pattern. 

Variables 

Each Director variable is associated with a particular actor. The value and the name of a 
variable may be either an atom or a list. So for example, an actor may have a variable called 
"(EVE COLOR)" and its value may be "BLUE". 

(ASIC ’anyone {or CHANGE 5ET) TOUR Tvartable TO Traew-value) sy ? to 1 OR cy T to ? 

The parr enclosed in jj means ihat either ihe word “change" or "set" can be typed, there is tio 
difference. A message matching the pattern causes the value of "variable" to be changed to 
"new-valuc". If the actor had no such variable then one is created and its value set New-vaiue is 
returned. For example, If Sally just got a hair cut you might want to update her halt length as 

follows 

(ask sally set your (hair length) to medium) 

which causes Sally's variable "(hair length)" to be set to “medium*. 

(ASK 7 anyone RECALL YOUR ’variable) ry ? 

This (Wisige causes the value of “variable" to be returned. If there is no such Variable 
associated! with the actor, then its parent will be asked fhe same question, and so on until either a 
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value j* found or finally NIL js returned 1 So, if y™ ask Sally 
(aak sally recall your (hair length)) 

the word "medium” will be returned. 


t A_Sk Tany 0.1 e RECALL EACH OF YGUfl ?v*r f ab 1 e > pa t ter n ) r eoy 7 

Variable rwmes may be either atoms or itsts. If it is a l«t then one can refer to H by giving 
only part of its name and a h ?“ for each missing part. This menage causes the return of the list 
the values of all the variables that match the “variable'pattcrn". Note that variable patterns are 
not as general as message patterns, only T* are permitted and only at the top level ctf the pattern. 
Using this feature an actor can have the equivalent of property lists, nested property tiiti, and 
arrays. For example, 

{ask seMy set your (tolar-of friend hob) to red) 

(ask sally set your (color-of friend sam) to blue) 

(ask sal ly set your {col or-of stranger ton) to green) 

;; f h rn asking 

(ask sally recall Each of your (color-cf friend 7)) 

(SLUE RED) i; fj ref^firerf 
; \ while afKtJig 

(ask sally recall each of your (colur-qf 7 7)J 
(GREEN SLUE RED) ;; return? all three 

If you made the movie My-first -film described earlier and you want to see all the frames 
ypu can type 

(ask my-first-fiVm recall eoth of ynur (frene ?)) 

This pattern notation for variables abo works for the "set or change” messages. For 
example, typing 

(ask sally set your (color-of 7 7) to yellow) 


1- The rcivrmnf; *f NIL (fir uuhouitd variable* is very ronufiimt detank, especially for wwiew, This 
can be overridden j;n Ihnt it bccfrnici an error hy (Jtitl-E tfvB variable dem«m di«UEBfrd: ti<jc •». 
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Will set all the variables of Sally that art three long and begin. 'With "colar-nT to "yellow". 

(ASK Yanyonc rNCftLhLHT TOUR ^variable fiY ?emoilht| 1y 7 by 7 

This causes the value of "variable" to be set to the sum of Lts old value plus "amount" in the 
message. If there is no such variable Chen one is crEated and m to the " 31000111 ’. Unless both 
"amount’' and the value of "variable" are numbers an error will result. The new value of 
"variable" is return Ed. So if you type 
(ask som increment your size by 10} 

and hit old Sire was 20 then his sue is now X. If Sam did not "know what td do when tie received 

a message asking him to increment a variable you could have (old him by typing 

(ttfifc saw do whBn receiving (Increment your 7verfable by ?amount) 

(script; (ask :S6lf change your p variable to 

j(plus (or (ask sself recall your ,variable) 

0) a In cc J i* It Aai nd vaiiu already 
amount}})} 

Notice that this message and the following ones do not change the value of a Variable of an 
ancestor. So if when asking Sam to increment his sue, be did not knew his siie and had to ask hit 
parent, th-eh his parent's si?? is not affected by this change. Instead a variable for site is treated 
far Sam and Initial lied to be the sum of his parent's sue and “amoLint". 

(ASK. ?anyone ADD 7nEW-1tenT0 TOUfl, LIST Of fllst-nana) add 7 tylo 7 

If "new -item” is already a member of the contents of "list-name"' then nothing happens, 
otherwise ’View-item" is added onto the value of list-name",. The new value of list-name it 
returned. For example, typing 

(ask san set your neighbors to (fred bob salty)) 

(ask, sam add sue to your list of neighbors) 

results in $am h 4 variable “neighbors" to be set to (SUE FREE BOS SALLY). 
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CASK ?anyone ADD ?liBW-1tem TO YOUR LIST Of ?1 ist-nam* MtARDLESS ) add 7 tylo t raj 
Ttm i* the janw at the prEviou* "add message only the "new-icem" Si added regard Ins oT 
whether it ii already a member of the value of "list-name", 

(ASK ’anyone REMOVE Told-ttem FROM YDUR LIST OF M 1st-name) remove T fylq ? 

This removes all copies of "old-item" From the contents of 'list-name". Suppose Bob moves 
away from Sally, then you can ask Sally 
(ask sally re-move bob from your list of neighbors} 

(ASK ?anyctie LIST ALL YOUR VARIABLE NAMES} layvfl 

Returns a list of the names of all the variables known directly by the recipient. Special 
variables like descendant* and siblings are not included since they are computed when asked far 
and are not known otherwise. 

(ASK ^anyone FORGET YOUR Tvarfable-pattern) fy f 

If "variable-pattern" is the name of a variable it Is forgotten (the recipient Is restored 10 the 

i 

same condition a* before the variable wa* created).- If it Is T then all variables are forgotten 
except For parent", 'offspring'" and "name". Jf "variable-pattern" is a list containing question 
marks then all those variables, which match are forgotten. So typing 
(ask salty forget your (color-of friend ?)) 

will cause Sally «> forget about the variable* "(colot-cf friend jam)" and "(CblOr-of friend bob) - . 
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Demons for Variables 

Sometime* you want some special action (o take place when retailing or changing the value 
of a variable Each special 1 action is called) a demon and the demons for a variable are kepi in a 
variable whose name starts with the name of the variable to be watched followed by cither 
"actions-if-recading H or "actLons-tf-changing" depending on whether the action, should take place 
when the Variable is recalled or changed Variables matching the following Variable patterns are 
run wh-en their correspondmg variable is changed or recalled. 

Variable pattern ( Tvarlable-name AC TI0KS-IF -RECALLING ) h abbreviated as ( ? a1nc> 

Such variables can be created, modified and inspected using the normal variable messages. 
If the second name of a variable is "actions-if-recalling" then if the "variable-name" is ever recalled, 
then each member of the list of actionj-if-recalling is evaluated. The value returned by the real! 
is the last form of the list evaluated The forms can reference the Lisp variable 'Void-value" which 
is the current value of the variable So if you want Jack to always tie about bis age, so that ±t is 
nt-Ver greater than 59 you can type 

(ask jack add (min ;old-value 39) ;i return tAi wiijtlwmwt of current age artif 39 
to your list of (age actions-if-reqal 1 leg}) i; if ever recalling hli age 
(ask jack SGt yoOr age to 70) ;; rtPtf tv test it out 
7B 

(ask jack recall your age) 

39 i ", to which Ae reipondf 39 

This feature is used ’ y objects (descendants of Object which IS described later) which have a 

variable called "state" that is a list of the x coordinate, y coordinate and heading. When you ask 

an object for its beading it returns ihe third element of this "state" variable. This Is done by- 

task object add (third (ask tself recall your state)) 
to your list of (heading actions’-lf-racantno) ) 
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Variable pattern ( ?v*r iab] 6-name ACTIONS*IF-CHAHGTHE ) fj abbtntialtd as ( ? ate ) 

When changing or setting (they arc the lame thing) the Variabk-rair#" then the variable 
Whose first name IS "variable-name' and second name II "attions-if-changing" is recalled. Each 
etemwit of that variable (if there is one) is then evaluated. The value that the variable hat jusi 
been set to 1$ available in the Lisp variable "mew-value". Suppose you know chat Jack should 
never be over 39. Then to get a warning if hit age is set to too high a value just enter 

v 

(ask Jack add 

{cond ({> i new-Value 39) \' r if th# vatut It greater than 

(type '(warning Jaekt age set to ,;now- va 1 ue which is too high))) ) 
to your list of (age aetlons-if-chsjigtng)) 

(ask jack Change your age to 73) :t try if out ty teiting fiir age ta /« A(fA a valut 
WARMING JACKS ACE SET TO 73 WHICH IS TOC HIGH 
73 ; ; but Ais age is set l& 73 anyway 

If you wanted his age automatically set to 39 in this case then type 

(ask Jack add (cond ((> tUGV-ValUH 39) 

(ask jack set your age to 39))) 
to yuur list of (age act ions-If-chanyInu)) 

Belntionfil Data Bases 

Associated with each actor (since each actor is an offspring of Something) is a powerful data 
base. The patterns used to retrieve items from the data base have the same form as.She message 
patterns, e.g. is used for anything in chat position, for anything taking up any number of 
positions A Complete description or patterns can be found in a later section. 

Memorise in g 

(ASK Tanyonn HFHOAIZE 7(Lem) y 

Any list Structure may be remembered. Once an actor is told, to memorize an stem it will 
never forget it unless you ask It to "ftagcif as described later, Some example* of memorizing are 
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( 3 $k s^iiy memorize (color iky blue)) 
(lik saTly memorize (color ocean blue}) 


Betrieving 

It doesn't do any good to have Sally remember these things If we can’t ask her about them so 
we have the following message?. 


(A5K Tauyone RECALL IF ANY ITEMS NATCH 7fHttifn) rialm T 

Sally will answer T" ■(for truell or "NIL" (for don't knew anything about it) defending on 

whether she was ever told something that matches! the "pattern". So if you asked Sally the 

following questions i 

(ask sally recall If any tt*iu match (tplor sky blue)) 

T ;; i t. yup 

(ask Sally recall if any Homs. match (Color ^anything blue)) ;; same as (color f Mue) 
T n of course 

(ask sally recall If any Hems natch (color Tarty thing green )) ■ 

NIL ■ ; dtmi AtltW of any green things 


(ASK ?anyone RECALL AN ITEM MATCH TNG Jpattari? THEM Taction) ralm ? than T 

h would! be nice if Sally would say more than yes or no, One way to do this Is to use this 
message. If she remembers at least one thing that matches the 'pattern" She- Will take whatever 
"action” you ask her to. 5p, if yo^ type * 

(ask sally recall an item matching (color 7th1ng blue) 

then (type / (1 know that the *thing Is blue))) 

I KNOW THAT THE SKY IS BLUF ;; to wdirA she responds 

If you hadn’t told her about any blue things then she would have answered "NIL", 

The first element of An item in a database is treated Specially in order to- Speed Up retrieval. 
Because of this you should always provide the first elEment completely without Using any question 
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marks, ir you don't like this you can always use some dummy word In the front of all the Items. 

{ ASK ?anyone COLLECT ITEMS MEtWRIZED MATCHING ?patt*rn) ctrm 7 

The previous messages aren't too helpful If the actor in question has remembered several 
Items that match the pattern since you never know which item the actor will base its answers on. 
Director once had (and it could came back by popular demand) a series of messages for creating a 
stream of answers to questions that could be interrogated for its answers one by one. Instead of 
that* this umplier, less general, "collect items memorised matching.,." message is provided whlsh 
collects into a list and returns all the forms that were memorized and match the "pattern". So 

■i 

typing 

(ask sally collect ttens memorized matching (color ? blue)) 

(CCOLW OCEAN BLUE) (COLOR SKY BLUE)) ;; It returned 

Demons and Virtual Items 

You soinctiines want special actions to occur during some database references, Similar to the 
demons for variables,, you can create database demons to satisfy such needs. Variables whose name 
consists of the first dement of th# item in question followed by either "if-recalllng-items" or 
"actkans-if-mernoriiing" are evaluated when an item with the same first element ii called for or 
memorized 

Vat laid* pattitn fTfirst-element IF-RECALLING-ITEMS) is abbrmattd ai {? frl) 

The constructors of virtual items (items that are not really in the actor's database but that 
pretend to be) are found on variables whose names match the above pattern. When needed by 
either a "recall if any Items match", a "recall an item matching" rsr a "collect items memorized 
marching" message they get run, 

Suppose you want to have a tabic actor that keeps track of blocks on top of It, You want lit 
to remember which blocks are left and right of each other. Furthermore, you donY wart to clutter 


Feqc - SI 


□irector Guide 


□ernpne end VirLunl Hems 


Ksmeth Kohn 


the table tip with too many facts. One thing to do is to have the table memorize only items about 
which blocks arc left of which others and to use iPrecaliirtg-items" demons to fake it to look as if 
it also had memorized which are right or which others. To do this enter,, 

{ask table add 

;; add fa the tables of rffnttftl for ^wrifiatir frgfiMfttj' WM* Hght-pf 
(if-asked-about (rtght-of TblOCk-l 7blOCk~2) 

;; if asked Otowf a block being right of another tAen 
(script: 

(ask :self recall an item matching ;; then, look jet an item that lays that 
(left-of {and ?b 2 t block-z| {and ?bl .block-lj) 

;; the second block is left-of the first one 
then 'Crlght-oF ,hl *bZ)))) 

i ; and if found pretend that e Hght-of item U>at there 
to your list oT (right-of 1 f-r6C4l1 in{|-f tfitti)) 

Only those items constructed that match the original request are used In answers. To test out our 
table we can enter 

{ask table tnemori?i (left-oF (green block) (red cube))) ;; tell it something 
(ask table recall an Item matching (rlgfot-of (reef cube) Tsome-other -block) 
then (type ''(the ,some-other-block is right of the cad Cuba))) 

; ; after asking it for something that Is Tight of the red cube it responds 
THE (GREEN BLOCK) IS RIGHT OF THE RED CUBE 


Variable pattern ( Tflrst-ft lament ACTIOhS-IF-Hfh&RrZTHG') p abbreviated ai (? lifflK) 

If, instead of pretending that some item is memorized, you tram some special act Lons to occur 
when certain items are memorized then you should put the actions in a variable whose name Is the 
first element of the items in question followed by "actions'if-mernoriiing’'. Suppose you rather have 
the table memorize both the left and right relationships rtf its blocks, but you don't want to have to 
enrer both kinds oF statements. Then using attlons-lf-memofLzLng you can have one kind 
automat lea lly added after the Other kind is. To get ihe table to memorize right-of Statements after 
first hearing of the left-of version just type, 
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table add 

; ; edit to the Hit of actions to happen if mmBTtitng an Item beginning mil A Ufl-af 
Of-t&ld-about (left-nf Tthing-i ?thtng-Z) 

(script: 

(c&Fid ((ask jstlf recall iif any 1 tens match (rlght-of .thlog-Z ,th1ng-l})) 
;i If t already Hwnwrjzftf the corresponding item then do nothing 
(t (ask -self nemo-rize (rlght-df ,thlng-2 .thing-])))))) 

** Otherwise Bwinorfee the i/en right-of wirfi the thing! iutitihed around 
to your list of ( left-df ectlonsHf-menqrf jing)) 

The reason I first checked whether the new item is already known is so that the analogous demon 
can be placed upon the pattern "(righc-of 7 ?}’ without the two activating each other forever. 

Forgetting: 

(ASK Anyone FORGET ITEMS HATCHING ^pattern) fim T 

This removes any previously memorized Hem matching the ■pattern' from the data base of 
an actor. If you want Sally to forget abftut ail the blue things she knows about you could type: 

(„:i>k sally forget items mutchinp (color 1 blue)) 

To have her forget everything (except her name,. parent and receiving clauses) type 

(ask sally forget items. matching {*)) ;i forget every rfara fcasr item 
{ask sally forget your 1) ji forget dli ydUY VBrtabiei 


Plans &nd P?euda-ParAlieliem 

Normally when an actor receives a message it responds ar quickly as possible^ In order to 
have several actors hehave at what seems to be the same time this Is not desirable. Director solve* 
this by providing a "tick" nwehaniim which is described in greater detail in [Kahn 1978) 


(ASK Tnyott Pi AN NEXT faction) . pn X 

This indicates that the message called 'action' should he sent after the next lick. Tick* Sire 
explained later in this section. 
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CASK ?amyone PLAN AF Ttft TTiuutier TICKS faction) pa ? ticks % 

This requests that the message tailed "action" tw-ieni after "number" licks, Suppose you 

want td have Sally grow and after that to go forward and at the same time you want- Sam to go 

forward on the next lick and to grow on the tick after that You could type 

{ a.s.k sally plan next grow 1001 

(ask sal}y plan aftflf 2 ticks forward 50) 

(ask son plan next forward 5Q) 

(ask sairv plan -after Z ticks grow JOG) 

Once all the plans have been made you can get any actor to do all planned on the next tick 
by asking it lo (TICK). If yocl ask an actor named Default-universe to (TICK) then all the actors 
W 1 H do what they planned for the next tick. If you ask Default-universe to •RUN FOK 3 TICKS* 
then 3 ticks of action will happen. 

(ASK ^anyone PLAN AFTER ^number SECONDS Kmossaaa) pa 7 seconds t 

This is the same as the previous message except that the units are in film seconds, While 
making a movie there are variables for the number of frames per second and ticks per frame 
Which are multiplied by "numbed in the message to get the number or ticks, 

(ASK Tanyone PLAN AFTER RECEIVING ?eve-nt-E>«tlern TO Tevessaje-forffl) parx 7 to 7 

If the recipient of this message type receives a message matching the "event-pattern" then the 

message-form is evaluated (in the environment extended by matching the event-pattern against 

the event message) and sent to the recipient. Suppose you want Sam to melt after colliding with a 

sun otherwise tq explode. Then you could enter; 

(ask 3«n plflti after receiving (colliding with ?other) to 
ll if a meisagt mattAei (tolliding taith 7} 

(script; (e<Hld ((ask H other are you a sun) •; if the (sf^x fj a run 
■'(mult)) ;; Urn the message to & jffif if melt 
(t ■* (uXplada))))) i; otAermist if if explode 
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(ASK ’anyone FLAW AFTER RECEIVING Yavenfc-pattern TO ALWAYS Tmessage-feriti) paPx 7 ts 7 
This ts just like the last message except that it will always dg "message-form" after receiving 
a message that matches "event^pattern* while the Other one only worts the first time that a 
message matches The affect of [fits message could easily be accomplished- using the "extend 
behavior when receiving" message. Suppose you want Salty to grow units 3 ticlti after 
gradually going forward 200, then you could type 

(ask sally plan after receiving (note tNst I finished gradually forward 200) 
to always -(plan after 3 ticks grow ISO)) 

(ASK fanyone REPEAT Tmessage dumber TIMES) 

This causes the "message" to he sent now md the plan ihe messages the comma means the 
value instead of the name. 

(ASK 7anyon« REPEAT Tmtssat)* fnumbar T1ME5 EVERY 7so-nany TICKS) repeat T T to 7 ticks 

If beacons had not be fold how to blink they could be told to using this message by entering, 

(ask „beacon repeat (show) 10 tines every ? ticks) 

(ask ,beacon plan nc^t repeat (hide) id times every Z ticks) 

&o that the bEacon wjH show and hide on alternate ticks. 


(ASK ?anyone REPEAT Furessaoe FOREVER) 

This is similar to the previous message only the action is repealed ad infinitum. This is 
defined as follows. 

(ask something ;; every actor inherits this bekavLor from Something 
do when receiving (repeat ’message forever) 

(script; (ask ;se If I .message) ;; irnrf ihe menage to your self 
(ask tself plan next repeat .message forever))) 

;; and plan nr*f to repeat the tame thing again 
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The T in the first line of the script means chit the fat that Follows should he inserted into the list 
without its parenthesises. So typing "(ask sally Itprini memory))" is exactly the same is typing "(ask 
sally print memory)". 

(ASK Isnyonc TICK) 

■ 

This message causes (hose messages planned (or (he next tick to he sent. These are kept on 
the variable called "things-to-do-nexf, Conceptually the tiansmlHiom planned for a tick happen 
in parallel as does the broadcasting of tick messages by either a movie or a Universe. A tick Is a. 
quantum of time during which you should not care about the Odder Of transmission of any planned 
messages. See the sections describing Movie and Universe below for more details. 

Broadcasting Messages 

Sometimes you want to have an actor send message* on along to others it knows about. The 
following messages are to help you do that. 

(ASK ? anyone ASK YOUR ?var table to lines 5 age) ay y fO St 

This asks ihe recipient to recall it* "variable* and then send to it the “message", For 
example, 

(oik sally set your friend to boh) 

(ask sally ask your friend to recall your offspring) 

Hopefully Sally has more than one friend. In that case you can create a different variable 
("friends'* is a good name) and use the next message, 

(ASK ?anyone ASK EACH OF YOUR Tver iflb lo TO STtfliiaga) aapy ? ta % 

This Sends out the "message" to each of the members of the list that is the value of 
"Variable” Nothing happens JF there is no value for "Variable"'. As an example. 


POBO - SB 


Director Guido 


OfOGOCtJul ir iy MoeoageH 


Kenneth Kohn 


(ask sally set your friends to (bob ted teroi a)ice)) 
f n a h sally ask ttich of your friends to print variables) 

There are a few special Variables chat are useful together with this message. They are 
"descendants \ "childless-descendants',. "siblings" and 'offspring', Offspring are all the children of 
an actor, siblings are air the offspring of an actor's parents except itself, descendants are all the 
children and their children's children and jo on-, and thlldlessndescendant; are those descendants 
that themselves have no children. If you wanted all Ihe actors in existence (except Something and 
those actors created by "male uninterned offspring") to print, for example,, you just type 

(ask something ash each of your descendants to print) 

i 

(ASK 7anyone ASK fanuther TO ^message) 

This one may seem kind of silly. Why ask someone elw to ask another person something, 
why not just ask them yourself? This is bandy mostly when you are planning nr repeating 
something because they, by convent ion, deal with messages that are to he sent to the planner at 
some later time. The planner is typically the same actor as the cine who execute; plans but 
occasionally this is hot the case, for example, if you wan* 5»Uy t® tell someone that he Is a clutZ 
because he just collided w«h her (tather then do something herself such at explode), then you 
could type 

(ask sally plan after receiving (colliding with father) 

to always "'(ask ,other to n*t« that you are a elutz)) 

If Sally receives a message informing her that the Is colliding with Bob then the following 
transmission occurs 

(ask sally ask bob to note that you a clot;) 

(ASK fanyonc PO THE FOLLOWING i MESSAGES) dtf X 

This «kj may seem Silly at first, why send yourself many messages at once like this? Again 
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this message is handy when planning to do somelhing later. Since you have no say, regarding the 

order of messages sent during a tick, this pattern provides you with some. The difference is subtle. 

Using this message you can plan to do a compound action at a particular lime. The alternative is 

tt> plan to do- several simple actions all at lhat lime. Suppose you want Sue to draw a pentagram (a 

five pointed star), then you could type either 

(ask sue p end own) ;; So tftal skt ttaws a Irflif Mim/ htr 

(ask sue repent, (<to the following: (forward 240) (right 144)) 

□r if you don’t care whether the star is drawn by going forward first or right first then the 
following is just as good. 

(ask sue reliant (forward ?0&] & tltnas) 

(ask sue repeat (right 144> 5 times) 

Remember that the "repeif message is defined to do the message and plan to repeat one less time 
the same message 

(AS>C fanyuna KEEP DOING LINTIlL ^predicate Emessugii) kdu T 16 

This keep; sending the "message" io itself until it results in something that satisfies the 
’’predicate”. Suppose you want Sam to grow &0 until he ii at beast 200 big Then you could type 
(ask san keep doing until (lanftdd (result) (> result 200)) grow 10) 

Variables that are Special to All Aotors 

There are a few variables (hat are treated specially. Among them ate “siblings"* "offspring", 
descendants", and ’‘childlcss-descendanti’'. If there is no value for one of these variables Instead of 
asking the recipient's parent for a value one is made lip- ft returns either the relatives indicated or 
NIL if there are none. 

! ■> 

n 3 m ts it a Voriati'e huAcjs dtfault vatur is <name used when fflAdn> 

Every actor hai a name. 


Page - £8 



DiractET Guide 


Vnhnblaa thol gra Bpscml la AH Ac tore 


Kentwlh Kehri 


parent il a variable wfceir default value it <tbfc Baker of red pi put > 

Every actor ha* as it* parent the actor that created iL It essential to have a parent to accept 
any message or recall any variable or database item that one does net know explicitly. You can 
charge ynur mind Si to who a parent of an actor il and reset ft using "change your _hut the 
previous parent's offspring (see below) will not be changed and the new parent will not 
automatically know of this new offspring. 

Off-spr Inj fi a variable whose default value is nl 1 and is abbreviated as off 5 

Every actor knows the names of all its offspring {except those that ate not interned). This 
variable is not inherited of course. 

Siblings is a variable us hast default eatai il n 11 and is abbreviated as sib 
An actor’s siblings are all of its parent's gffjp-nng except itself. 

descen d ants. fs a variable t/hott default aafue te t\\ 1 and il abbreviated as des 
This is a list of the actor's offspring and their offspring and so on. 

Childl e ss-descendants is a wJrisWr nMote default iwftfd il hi 1 and Is abbreviated as Cd 
This is a list of all the actor's descendants that themselves have no offspring. 

tjnl ver £fr is d variable mAoje default value is default-uhiver^g and is abbreviated qj util 

The variable "universe" is used in planning and its value should a Nays be a descendant of 
Universe. Its value is informed whenever an actor plans anything. 

thl nQS-tO-tlo-nfekt is a variable who se default value ir nil and ij abbreviated as ttdn 

This variable contains the list of things that its owner plans to do upon receipt of the nntt 
tick message. You need not worry about this variable unless you want to write your own planning 
primitives. 
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IV, Object 

l 

j 

Object H [he top-level actor fu: those that can be s-ccn on -a display screen. Objects, are 
mucli tike Lego turtles only much more venatilr. Many of the message patterns are Intended to be 
compatible with the TV to rile. 

Creation and Appearanoe 

ObjecLs arc CrcaLed using the "Male" message described above. In Order to inform this newly 
created actor of its appearance it must he told the name Of a Lisp program (made Up of turtle 
commands) that will draw a an a display. IF its appearance Is not easily desoibable by turtle 
commands (such as text) then you can use the instant turtle or you can supply clauses for the 
reception of display and erase messages, This is all described later. 

(ASK Tan-objoCt WHEtl URAKIW5 USE ?draw-procedure OF Xdrav-arg&) wdu T of % 

This informs "an-object" that it should draw Itself using the "draw-procedure" The 
procedure may consist of Forward. Back, Right and Left commands but coordinate commands (for 
example, Sctxy) Should be avoided. Instead of Penup and Pendowtt use Thing up and 
Thing down "Driw-args" is a list of variables that must be '■RBcaHrablG p I !_e. variables known 
(either directly or through inheritance) by the actor in question. If these variables art changed 
and the object is currently being displayed, then its its appearance will be updated- For sample, 
to define an nbject that can appear as any polygon we could type 
(define poly object 

(sol your angle to 60) ;; let Hr dtjau.ll to be d hexagon 
(When drawing; Use draw-poly of size angle)} 

The macro "Define" is just short hand for: 
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(usk object mate poly) 

(ask poly £<5t yout- angle to 60)- 

(ask poly wheh drawing use draw-pdly of size angli) 

Draw-poly Ln Lisp mu Id be defined as follows: 

(defun draw-poly (distance turrcage) 

(do ((Original-heading (h&fldlftg)) ;; sane away tht heading 

(f Irst-tlma? t)) 

((and (* original-heeding (heading)) jj if back to tht original heading 
(sold first-time? (not first-time?)))), 
it and If this it not the fir it lime though then it's finished 
(far war cl distance) ;; each Umt go forward the distance 
(right turnage))) jj and lum the turnage 

When giving Hie arguments Eo the drawing procedure ore may put any of the arguments in 
parenthesis. This declares to Director that the argument does not change the shape or the object. 
For example, if the drawing procedure has an argument for the texture then it should be in 
parenthesis otherwise whenever the texture ei changed. Director will go through much more work 
than necessary. If "draw-poty" had a third argument for the texture then you should type, "WHEN 
DRAWING USE DRAW-POLV OF SIZE ANGLE (TEXTURE)".. Alto r the variable "silt’ is treated specially 
by the system (in the definition pf grow and shrink for example) so you should use that name 
when that is What you mean. All sizes are standardued so that any object of jim, say, 100 will just 
fit Inside a circle of radius HX> unlit. You needn't worry about centering the appearance. Director 
will do it for you. This can be overridden by setting the variable “center-offset^ as described 
below, 

Currently the initial environment includes ihis definition of Poly and two other objects. 
Rocket and Flower, 
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Showing nnd Hiding 

(ASK fan-object SHOW) 

"An-object" is shown if not already being shown, 

(ASK 7an-object HIDE) 

"An-'object" is hidden ir currently visible. 

Moving nnd Turning 

just as in Lugo there are at least two ways of changing an object 1 * position of orientation. 
You can ask it tq go forward w co cum, or you can ask It to change either its ’icccr" (the horir.nntal 
coordinate). 'year" (the vertical coordtnau). "heading", "position" (the xcor and ycor) of “wale’ 1 (thr 
k cor, year and heading). 

Turtle Co-mmil k 

There are two ways of moving or turning. An object can either disappear from-where it U 
and appear in its new position or orientation. Another way of moving or turning is to do It 
gradually. "Gradually” messages to objects do not cause them to move slowly when Che message is 
received, Instead they move only a tick's worth (see previous discussion of this} and plan to do 
the rest In order tq see the object move gradually one should «lt an instance of Universe or 
Movie to run for a number of ticks (see below). 

(ASK fan-Object {and Ttcmmend (or FD FORWARD AT RIGHT LT LEFT DK BACK)} Tamount)) 

3f any af the wards Id* forward* rt, fight, It, left, bk nr back followed by any sort of number Is 
received by an object Chen it will hide, dn the "command"* and reappear. So typing (ask sally 
forward ZOO) causes Salty to disappear and then to appear 200 steps forward from the way she 
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was facing (her bEading). If she was hidden to start with she will move but you won't Me her. 


(ASK Tun-object GRADUAL 1 Y Tconmand Tanuunt) prad 7 7 

This causes the actor to find its appropriate speed and send itself a message asking it to do 
"command" with cither the speed or "amount* whichever is less. The name of the speed is found 
in the variable {,command speed-name), [f there is anything Irfl over to dp, then it plans to do 
that next. So typing 
(ask sally yradunily forward £50) 

;; is the same as typing (<ll$U#iing her speed is less than 2?0) 

(ask sully forward >(ask sally recall your speed)) 

(ask sally plan next gradually forward 251J (ask sally recall your speed))) 

The speed oF changE is the variable "ipned" if the message is 3, 'forward“ or "back" message. It is 
■"rotaLianal-ipeed" iF the message is "right" or "left - . Object knows reasonable defaults for these 
variables bill of course you can override any Of them. When an object does something gradually 
such as ( GRADUALLY RIGHT flfi) then the PirstagE (NOTE THAT r STARTED GRADUALLY RIGHT flB) fs 
sent to itself and later when it finishrd the message (HDIC THAT I FINISHED GRADUAL L Y RIGHT 
AS). These are very handy for malting complicated plans where only after some event hfli begun- 
Or finished should another Start. 


{ASK Tan-object RIGHT-REVDLVE Tigress} rr T 

(ASK fan-object LEFT-REVOLVE Tdegrees) lr 7 

I hese cause the recipient to revolve around its 'revolutionHcenier" if it has one. otherwise it 
acts just as if it received either "right" or "left". It travels in a circle around its "revolution-tenter*' 
travelling "degrees" to the right or left. 

(ASK Tan-Object GRADUALLY RIGHT-REVOLVE ?d«grees) prr 7 

(ASK Tan-object GRADUALLY LEFT-REVOLVE Tdegrees) glr T 

These causes "an-object” to revolve at the lesser of its “revolution-speed" and "degrees" and 
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then plan to do the rest next. 

Coordinate Messages 

Someiimes poo might w^n! to tell an abject where to go by giving the distance up or down 
and the distance left or right from either the current position or the center of the torn The up 
and down part, is cal ted the y coordinate and the left and right part is the k coordinate, The 
following are the coordinate-oriented messages 
(ASK 7an-Object 3CTXT Tnew-x ?na«-y) 

Set x coord inaie to new-* and y to new-y. 

(ASK ?ao-ohject SETX Tnew-x) 

( ASK 7an-Dbject SETY Tmaw-y ) 

(ASK ?Bn-object SETTUR.TLE (7new-x ?n«w-y f now-heading) ) sett (T T I) 

This, is the same as (change your state to ^new-state). 

(ASK ? art-object SET HEADING ?new-heading 

Sets the heading same as (change your heading to ?new-headJnjr). 

(ASK Tan-object OELKY ?doit*-X Ydslta-y) 

Arid liplta-x to current x coordinate and delta-y to y, 

(ASK Tan-object DEL* ?delta-*) 

(ASK Tan-abject DELY ?dcUa-y| 


(ASK ?an-object CHANGE YOMH 5IAIE TO state) cyst 7 

Where state is (xcor ycor heading)- same as setburtk new-state. 

(ASK 7an-object CHANGE YOUR POSITION TO ?new-p-0Sill Oft) cypt T 

Position is just (xcor ycor). 

(ASK ?am-abject CHANGE YOUR HEADING TO Theadlng) cyht T 

Sets the beading 

(ASK 7a n-object CHANGE YOUR KCOR TO Tncw-xtor ) C y*t 7 
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Synonymous with (set* 

( ASK 7an-object CHANGE TOUR YCOR 10 7nw-ycor) cjryt ? 

Same as (sety 

( ASK 7 a r>-object RECALL TOUR STATE) hys 

Returns the current sLale 

(ASK 7an-obJ«ct RECALL TOUR POSITrON) ryp 

Returns the list of the xcor and year 

(ASK ?an-object RECALL YOUR HEADING) ryh 

Returns the current heading 

(ASK ?an*object RECALL YOUR XCOR) ry* 

Returns the Jt coordinate 

(ASK ?<rn-object RECALL YOUR YCQR) ryy 

Rerurns the y coordinate 


Just as with the turtle commands: it is possible to hiVc a coordinate message happen 
gradually. The relative ones (Delx Deiy Delay) use the variable "speed■■ just as ■forward" and 
"back.* do. The absolute ones (Sets Sety Setxy SetturLle Setheading) arc more un»UluaL While the 
recipients of these messages also use "speed* and *ioia tiort*l-ipeed" where appropriate, they cause 
odd behavior sometimes. An -object is defined to move towards its goal (the desired coordinates 
and heading) as much as ilS Speeds allow and then if the goal is no* reached to plan Ed do the 
■original message ail over again on the next tick. This can cause some interesting conflicts if you 
have an abject trying to get to a particular State atld while that is In progress have It also receive 

some ""forward" or "right* messages throwing it off course. The gradual coordinate messages are 1 . 

. 

I 

(ASK 7an-object GRADUALLT DELX 7dtt1t«-x) gdalx T 

(ASK 7aft'’object GRADUALLY CELT Tdelts-y) fldely I 

(ASK 7an-object GRADUALLY DELXT Tdfllt«-X ?d«He-y) fldelxy T 
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(ASK ?an-Object GRADUALLY SETTURTLE ?nBW'5tst.fl| 
(ASK ?an-ob jecl.GRADUALLY SCTHEADING Tnew-tieadlng) 
( ASK Tan -object GRADUALU SETK 7new-x) 

(ASK Tan-object GRADUALLY S€TY fllffl-y] 

(ASK ?an-ob Ject GRADUALLY 5ETXY Tnew-x ?new-y)i 


ostty T 

gsetxy 7 


gsett 7 


gsatx 7 


gab 7 


Growing and Shrinking 


All objects can change theLr size, just as with going forward or turning an object can grow 
gradually or All at once. 

(ASK Tan-object GROW Tanrgunk) 

This is the same IS Lbe messages of the form (INCREMENT YOUR SIZE BY fpWMMIt). If the 
object is currently visible Jt will disappear and reappear bigger (if "amount is positive), 

(ASK Tan-object 5MRIMK TamoUflt) 

This is tlic same as a grow message of the negative of the "Amount”. 

(ASK Tan-object GRADUALLY GROW TdnOUttL) . 00? 

(ASK Ten-Object GRADUALLY SHRINK ?«Hunt) US 7 

This works a kx like the gradually messages for going Forward, turning right and the like. 
The object will grow (shrink) at most the amount of its "growth-speed” and IF anything ia left lVllI 
plan Co da it later. 
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Gradually Changing the Value of a Variable 

(ASK ?an -object GRADUALLY CHARGE YOUR fvariable TD ?ncw-V3lUB ) gey T to T 

This Will gradually Change any "variable" to a "new-vahie". The speed of the change Is 
given by the variable (.variable speed) or assumed be I if none is provided. If you want Sally (a 
slowly grow to 3CG at a rate of 30 units prr second (by default there is ore tick per second) then 
type 

(ask sally set your (size speed) tg 30J 

( 35 k sally plan next gradually Change your size to 300) j; plan tp tfiangt siz£ 

(ask sally keep doing until nothing-more'to-do tick! ;; kitp itltding tickl UMii /JjiJjAk 

(ASK ?an-object GRADUALLY INCREMENT YOUR Tverieble BY Yadditlnn) (fly ? by ? 

This is like the previous one and is defined to gradually change the "variable" to iti current 

value plus the "addition". The only difference between the following two ways of making Sally 

grow is that grow uses "growth -Speed" while "gradually Increment your ' uses (sire Speed). 

(ask sally gradualTy grow 2DD} 

(ask sally gradually Increment your size "by £00) 


Pens 

When an object moves it Can leave a trail behind itselF, It does this by falling back Upon tire 
TV TurtlE. The commands that are currently available are pu, per up. pd. ptndown* erd, 
crascrdown, xd h xordown, xn or xorup. They have the same meaning as described In the LLogo 
memo [Goldstein 1975]. 
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Special Variables 

We have already seen a few variables (ha! objects treat specially such as "heading", "stale" 
and "position". Also the arguments for drawing given in the "when drawing use message are 
also special variables. They are defined to aim the object in question to disappear if visible and 
then to reappear with a new appearance. This is accomplished using the “actions-lf-changing" 
variable demons described earlier arid explains why setting the variables "stie" or "ingle" of a Poly 
causes it to change. Suppose Bob is a square and you want him to become a triangle of Site 200 
then just type 

{ask bob ohango your angle to- l£0) ;; become a irlangie 
(ask bob change your size to 

There are a few other special variables associated with objects that y*u might want to set 
sometimes 


af tr:r -shuw-ar.t l nn is a variable uffttsie default value ii ntl and is afrSrewlaled as asa 

, 

This contains the action to be perfotmed after'the object has finished drawing itself. The 
turtle ii at the center so (hat Shading IS possible here. So to shade in Sally with a checker pattern 
(for more about shading see the LLqgo memo [Goldstein I975D you type 
(ask sally change your After-show-action to (shade ^checker)) 


_a_f ter-h ide-act i_o n is a variable snhote defaidt ml Ur it ft I 1 and is abbreviated as aha 

This describes (be action to be taker after the object has erased Itself. If you want Bob to 
print a message every time he hides then 

f ask bob change your after-hIde-fcOtIon to ftyps ^(try and find ms now))) 


erasahl 1 Hy is a variable whose default value is t and is abbreviated at eras 

Director has two ways to erase arl object, either redraw it with an eraser br erase everything 
in the region of the object Only if the object's erasability is pil |s (lie latter actiqn performed. 
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Thai is necessary if the appearance is shaded for example and Is -after faster Lf the drawing is 
complex. Sally’s problem now that she is checkered is that she cint be erased by redrawing with 
an eraser so you should type 
(ask sslly change your erasahtuty to nil) 

centgr^offstt is a variable w^est default mine is nl) emf ij abbrti/iattd at eo 

Director assumes that an object should be shown, turn, grow, etc, around its center The 
cenrer offset is evaluated before these actions are taken to allow you to change this. If you want 
Bob to be a flower that turns (Or grows) not at his Center but his base then try 
(ask f1owe r make bob) 

(ask bob change your CMter^ffsit to {forward (esk bob rocs)) your size))) 

(ask bob show) 

(a-sk bob right 50) a metier fflt differerut if ton trtair snuiTAfr floater surf have U tu.m 

Colors 

If you want to change the colors of an object you use can the ’‘change your „T message. Lf 
colors were mentioned in the "When diaVrihg Uic" message then this Will work. automatically, The 1 
list of possible colors is in the Lisp variable "icolors" and others can be made as described in the 
LLogn memo. If you want to see a smooth transition from one set of colors to another you cab use 
the following message. 

< ASK ?an-object CHAJIGf YOtlR COLORS TO Ttolprs JN trvumber TICKS) cyct 7 In 7 ticks 
The number of colors before should be equal to those after. Each color is slowly changed to 
the Color in the corresponding position m “colors", Only l/number of the change will occur, the 
rest will be planned for later. Of course, if you are not running the color system then these colors 
will all look white, but internal variables can be inspected to see that indeed the color is being 
"c ha nged ™l 
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( A-SK 3an-obJ,CCt PREPARE TO MIX COLORS WITH 7«Eher-colors) ptmew ? 

f he number of 'other-colois 4 * should be the same is the current colors. This message sets up 
a variable called "colpr-pnix" that controls the mix of the old colon with the "other-colors’'. If 
"eolor-mix" is set to 0.0 then the old cofori appeal if it |.Q then the ncw-colori, if H is i then they 
are mixed 50-50, This message is used to define the previous, message as follows. 

(ash object 

do when receiving (change your color* to PccHora In Trmmber ticks) 

(script; (ask : sbI f prepare to mix colors with .color*) ;; prtpaTt iht mix 
(ask ; self set your (color-mix speed) to .(//* (float number))) 

; ; TKipfOtal tsf Jtumfrer is ushat itotild (y dene eacA tick 
(ask iself gradually increment your color-tnix by 1,0))) 

; ; OH tath tick entor-miar jj tiwrritMrtfi'd bjt ffir (tcdor'mijf sptid) 


For example, 

(ask sally change your colors to (red white blue) in 5 ticks) 
is the same as typing 

(ask sally prepare to mix colors with (red whita blue)) 

(ask sally set your (col or'nix speed) to . z) 

(ask sally gradually increment your coldr-nlx by l r (J) a it tfarti uff a.f O 


IntwpoUtloii 

Sometimes you want an ob)Kt l 's shape to slowly change i* another shape- In Director you 
can create an actor that is the futfrpcfafiojt between the appearance of two other actors, 

(ASK ?an-&bjact BAKE 7name IHTEflPQIATION TO Tanother-object) 

This returns ail aetdr named "name" ibat IS the interpolation between "an-cbjMt" and 
"another-Dbjcct". This actor Js an object that you tan rell to grow, turn or whatever. It has 
assoc la led With it a special variable called "amount". Amount IS Initially h Which means that the 
appearance should he exactly between the two appearances 0.0 Will make it look like 'Vm-objecf 
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and I.O the Appearance of "anol her^objeet"„ Very interesting results occur if you try negative 
numbers or numbers greater than one, 


(ASH ?fln- 0 bjett HAKF INTERPOLATION FQ Tanother-object) mltJe 7 

Same as the previous one only Director picks a name of the interpolation for you, To make 
a simple movie of a circle becoming a square try the following 
(ask poly make circle) 

(ask circle set your angle to 10) j: wilt Zook tikt a circle but Will r tatty be a fa-agon 

(ask poly make square) 

if ask square set your angle to 90) 

(ask circle make clrcle-to-square Interpolation to square) ;■ mat* the interpolation actor 
(ask cireIc-tO-Square set your amount to 0,0) - ri ttart off looking like a circle 
(ask eircle-to-squere sat your (annum speed) to + 0£) 

(ask clrcle-to-sqiuare gradually IncreoBofc your amount by 1.0) 

(ask c 1 re 1 e-to-square show) ; ; -needs to t'iJjWf If mt're going to mai< a manic of It 
(ask movie make CtS-movie) ;; mcwifS orr described in 4 taler section 
(ask cts-tnovie film the next £0 ticks) ;; tend out 20 flcftj recording as you go 
(ask Cts-movie project) n filming it oi/et to project yourself 

This transition will be linear If you wanted the raw of change to increase just enter the following 
before running the movie. 

(ask d reIp-to-square set your ((amount speed) Spaed) to ,01) 

■ thf (iniM+nr Speed Itself pas a Speedy HUM (it the acceleration) 

(Oak circ le-tO‘Square gradually ctifthga your (amount Speed) to .25) 


Treating Objects ns Turtles 

It is possible to have an object behave as a turtle and run write procedures. To do this use 
the following message pattern 


(ASK ?an-object RUM Hiatt Ion) 

"Actton" can be any turtle command, procedure, or sequence of them beginning with the 
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word "script " If you warn art object earned Sam to go form *d 100, turn right 15. and thee follow 
the course of a circle thee you could type: 

(ask sam pee down) ** to see Air {rail 

task sant rue script; (forward 100 j (riant 46) (drew-poly id jo>) 
where draw-poly is a [Jsp TV Turtle program. 

Appearance Definition Using Instant Turtle 

Another way of creating appearances for object! is by using a mode called "instant turtle". It 
is entered by typing {instant) and is exited by either type *q H or cuntrobg The idea is to enable 
you tn draw on the screen by havtng the turtle move to your every key stroke. Most nogle tetters 
cause the turtle do something nr tp deftne the current image as either an actor, procedure or the 
definition at single character. Numbers are given to it by typing them before the letter command. 
If no numbers are given then the numbers last given to that tetter are assumed (or I ir it is the first 
time that letter I! used.). The mude u self-documenting just type 
(instant) 

Wnlromc to Instant Turtle fi dtarf il Hitil Will welcome yui 4 when it £i ready 
? ; * ciu type 7 anti then any letter w an V for help an all commandt 

and each Character will describe itself. Not? especially the V command far naming the picture as 
an actor. 

Non standard Appe^ranoes 

The default appearance handler of objects assumes that the Lisp program given in the 
"When drawing use" message consists of turtle commands such as forward, right, left, and back. If 
you want a special kind oF appearance you nBed to define an appearance handler that takes at feast 
two messages Display and Erase. If you want even less help from the system then you can 
define yout actor to accept Hide and Show messages but this IS not recommended. Suppose yotl 
want an actor that displays text then you could define It as follows: 
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(define tent object 

(set Your text to filo text given)) ;* provide a default text 

(set your font to tvfont) ;; default font is this pm e 

tset your appearance^Vfir lablas to (text f >;; I eated Only for mo vie I 

(do when receiving 

((or display erase] ) t ; if the messages fj Hiker display or erase 
(penup) 

(setturtle (ask :self recall your state)) ;; move the turtle to stmt 
(fobtprinc (ask :&clf recall your text) ;■ print the text in the fmt 

(ask :solf recall your foot)))) ;; ^r(i 3 fj if blank, M/tiTwlie erases 

This is l tic minimum needed to define a test of any Font,, or position. You might want the 

screen to reflect changes in the variables "text" and "font* The ’actions-ir-changing" variables 

(described in ihe earlier section on demons for variables) can be used for this as follows 

(ask text add (script: (ask screen wipe) :flert-value) 

it ean'f erne old appear*me easily SO erase everything and redraw it all 
to your list of (text act! ons- 1 f -ehijngl np >) ;; if text is changed 
(ask text add (scrtptr (ask screen wipe) :ncv-vtlut) 
to your list of (font actions-If-changlug)) 

We can now use She new text definition. 

(ask text make label) 

(ask label show) 

(ask label change your text to ]Here I «m| ) ; + So it becomes the words here J am 
(ask label forward ZOO) j[ Id mojir ft forward 

The W actor in Director is defined as described here with the ability to display the text in 
various fonts The fonts have to be made by "wJndoivize' which is described in anhbriorifwmake 
konl. if you want you can use a font called UlB (about 3 limes bigger than normal) and it will 
automatically be loaded in. fonts are loaded in automatically if the font name Hat a 
"fort-autoload■file" ptoperiy. So if you type 
(ask lahpl change your font to trlB) 

the text will be displayed in that font. 
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V* The Screen 

The Screen actor provides flip interface between the world of actors and the TV Turtle 
display area. There fa currently only one "screen* though the system could be extended to have 
multiple screens-. To see them on different physical displays is another question. Much of what 
Screen does you need not bother wpth. The messages of some use follow.. 

f ASK SCREEN SILENT KUNMING) 5r 

This makes rhe Screen "pretend" to do What its told but not to show anything on the TV. 
Thu Pi useful mostly for making movies, but also if one wants to do many things and then see the 
final result. For example, if it takes a While to draw an object you may rot want to sec it erase and 
redraw as you tell it to go forward, grow and turn, You couW always hide the object first but If 
there are many objects then It is easier to die this. If, while Director is running, you want the 
Screen to run silently you can type control a at any time. 


(ASK StRFEM NORMAL RUNKING > „ r 

J his tells the Screen to Stop running silently and also to wipe as described next- Thfa 
message tan be sent to Screen by simply typing control r. 

(ASK SCREEN WIRE) 

This wipes off anything from the Screen and then redraws any object* that should be 
visible. This is useful if a message or something messed up your display area. 

(ASK SCREEN CLEAP5CREEH) ct 

This tells all the actors to hide, sn that the screen becomes blank. 
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HE i aht (j a variant whole default value ii ?O0 

width U fl variable whcne default it 550 

Ttie height and width of the screen is con trolled by its variables “height" and “width", [f 

you want a square screen dCKt big then type 

fask screen set your height to <IDO) 

{ask screen set your width to flDB) 

visible-objects is a mriablt wk ue dtfoidt ante* ts nil and |j abbreviated a i vo 

Thu is a list that Screen keeps of actors it thinks should he visible. If you forget the name 
of someone OH the screen then look at this variable. 


I 

1 
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VI. Universe 

Universes mu stances of Uni verve. are the actors responsible hot knowing who warns ticks- 
messages. Any actor that has planned anything has told its universe that it has something to do- 
(The "plan ..." messages handle this and all actors Inherit these from Something.) The only thing 
that yon need ask Of a universe is to run when you want all the planned activities to occur. Each 
actor is asked Tor its "universe 1 * when planning and unless told otherwise inherits from Something 
cute called 'default-universe". Telling a universe to run is not recommended when the display Is 
involved instead Movie should be asked to "film". (Movies are described in the nest section) 

(ASK ?a-irn1v*rse HUN FOR Tlength TICKS) 

Send tick messages to each actor with something planned "length* number of times- So to 

run through a scene with Sally and Sue both growing you could type 

(ask sally plan next gradually grow 3DG) 

(ask sue plan after 2 ticks gradually grow £00} 

(ask sally plan artar 2 ticks print n^mory} j; fa j« aiAa^i happening ta Salty 
(ask sally ask your universe to run for d ticks) 

I ; (tnifH told Cihmtiu Sue and Sally ffw in rAr same unltUTSt 

actors-to-run^nakt. is a wriabie luAase default value it nl 1 and is <ti mlrn 

This variable is kept by a universe and should be a list of all acton in that universe with 
anything planned. 
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VII* Movie 

Movie can also be told 10 run and-its major difference from Universe is that movies manage 
to remember any changes to the screen. Movies can then be asked to play back at a speed that is 
typically much faster than when first created, 

(ASK Ta-movte FILM THE NEXT ?f 11m-length TICKS) ftn T ticks 

This is similar to the “run for ..." message for instances of Universe, however movies 

(instances of Movie) also record what's happening EG the display. To create a movie named 

Fantasia 12 ticks long ore need otiiy type 

(ask movie make fentesie) 

tii.sk fantasia film the next 12 ticks) 

All objects that arc Currently on the screen or plan to appear during the next 12 ticks will be in the 
movie. 

frames^per-sccond is a variable suAuse default value it 1 anrf iJ abbreviated ai fps 

Sometimes you may want EG see the same movie but with more frames and test change 
between frames If you used 'gradually' commands described above then you can control the 
number of frames per second. Remember that the speeds of gradually commands are in units per 
second. If the display were fat! enough setting the number o-f frames per second let 20 or 30 and 
projecting at chat rate would make the movement very smooth. To project many frames per second 
sve the messages described later in this section. ]f you set Fantasia's frames-per-second to 4 and 
had it run for 4S ticks instead then every fourth frame will be the same as before and the ocher* 
wilt show a smooch transition between the frames. You can think of frames-per-second as the 
speed with which the "camera" shouts Che action- The default value for fnmes'per-second ii 1. 

ticks -per - f r amo li a variable nffiesf default value it 1 and it abbreviated ui tpf 

if you want to film ]usr every 5th tick then set the movie's Ticks-per-frame" to 5. This tJ 
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primarily useful if you want a tick to be a small unit for accuracy and yet don't want ra see or 
record every tick, 

(ASK ?a’-mov1 e FILM SECRETLY THE HEX.T Tlenflth TICKS) fstfl 7 ticks 

This does the same as the preview message in that all changes to Screen are recorded except 
here they ate not displayed. This is useful if you want to save the time of displaying changes cm 

the screen or to free the terminal to do something else (e.g. edit a file) while the movie is being 
computed. 


There is a wide selection of different messages liking a movie to display itself, They iret 
(ASK ?a-movie PROJECT) 

: oil the frames frvm the star! not skipping any 

(ASIC 7i-tiwv1e PROJECT PRAM* ; ’begin 1(J Tend SHQNLH& EVERY 7so-fllA»y) pfs ? to SO ? 
; Show from frame fltrmfier BEGIN to END skipping every SOMAN Y frame r 

(ASK ?a-movie PROJECT FRAMES ?t>cfl1n TO Tend) pj T to T 

; aiitm* that nt> frames should he skipped 

(ASK ? a -mo v 1 e PROJECT STARTING AT FRAME Tbe&ln SHMflMG EVERT Tso-iaany) ps&t T sa T 
; shout until She md of the movie from BEGIN showing every SO-M ANY frames 
( A5K ?a-pnovie PROJECT 5HDWTNC EVERY Tan-many) 0 s H j 


i starts at the beginning and goes to the mrf sAeajfng eve ry SO-M ANY frame 
(ASK ?a- movie PROJECT FRAHE TnUmber) 

; jv.it sht?w that one frame 


speed fi a variable iirfior* default voivt ii 

Kfovies have a speed which increases how many frames per second should be displayed. 
Unfortunately rhe computer seldom can Show more than a small number per second. The speed 
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may be less than one if you want very slaw motion. If the machine can not display frames as fast 
as indicated (for example if the speed is the default of 99999) then It wilt just show them "as fast as 
the it can”. 

fUf^-rrmng-flctipni Is a variable whose default mlut is (clearscreen) «ta<f ii akfrrestfeifed uj nfa 
Another variable associated with movies b called the ■new-frame-action*. This provides 
instructions as to how to mate the transition between frames. The default, is (CLEARSCREEN) 
which just clears everything off the screen. The value of this atom is evaluated so if it is NJU then 
nothing will happen and you wdl see all the frames superimposed on- the screen. One useful! value 
is “erase-old" which redraws the frame with the enierdown. Sometimes this is faster. 

<ASk 7a-mov1& SHART COMPILE Ttf 1 1e-name) fiC jj 

This mewage will create a File of Lisp code that can then be compiled. The resulting movie 
projects the same as before but can run faster and be saved. To run (he movie, load it into your 
Director and call the function "PROJECTED-COMPELED-MOVIE" (abbreviated PCM). If you 
call |t with a ? it will print out a description of the arguments it expects and their defaults, So id 
save the. movie My-first-film as ffrim >, compile It and then run It do rhe following: 

(ask my-flrst-fi lm smart compile ffilm >) 

I; pul the Lisp iron tint fen of myvfirst.f ilm rn the file ffitm > <HJ yctur directory 

:; Leave Director 

: CjCompl ffiln > ;; compile the film if won/ it to run a little falter 
direct A h ;; after compilation it finilhed return to Dtrettor 
(load 'ffllm) ;; load the compiled movie into ^>tir Lisp 
(pen y 7) ,i to lee the default! 

(pcm) e; to project it tijfRg the default! 

I contemplate extending Movie so that while projecting y W can have the "projector’" loom, 
pan, -or Other filmic effects. Type "(Ask Movie help)' to find out about this. Also Scripts are 
planned which will save the state of all the plant. This way you can save the script, run the 
movie, restore the script and then modify it. 
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VIII, A Big Example 

Suppose we warn to write a space war in Director. First we will wmt to define space *hipi> 
suns, and gravity. One way w do this is to associate With each physical object another object 
corresponding to its velocity, The Velocity actors have Iheir own position which corresponds to the 
magnitude and direction of the velocity On every tid; each object’s position is updated by turning 
it in the direction oF its velocity and going forward the magnitude of irs velocity. Also the velocity 
jtselF may be updated in a similar manner by the thrust of the ship or by the gravitational pull of 
the sons. This w*e of a turtle's position to represent the velocity vector Is similar to the approach 
presented in [Abelson 19751 First we define physical object* That will Include the Space ships and 
the suns. Then we define the gravitational field to apply the forces between the object* lo their 
velocities. 
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; this file it a test of birector for rfpjnf orbital physics 

(Include lai’kenjdMlare >1) ;; thU it needed only if f am compiling t he following 
(define physical-object object 

i , make physical Qbjtd at a kind of object and and il the following messages 
(set ypyr mass to 10) ;; the default mast 
(extend behavior when receiving (naka Tinstance] fey doing 
it this enables. me to ettend the normal behavior of make ? 

(aik TSelf make .instances ;; create the object as normal 
(ask velocity irake (velocity-Of „ instance)! ;; mair a velocity for object 
Instance) ;; return the newly created instance 
(do when receiving (update your state) 

E ; when I get a message asking »1e to update my State 

(ask :SG If change your position tfl ♦ , j update my potUm by 

i; by adding to my current position to the position of my velocity 
„{position-sun (ask :self recall your position) 

(ask (velocity-of ,:sclf) recall your position))) 

I i l a fh the gravitational field at my Jofc.'irn to change my velocity 
(ask gravitational-field 

apply gravitational forces at 

,(*5k :self recall your position) to (velocity-pf ,: self) )) 

(do when receiving (yield pull at fplece) 

JE ip rfflrrwiiJir (he gravitational pull at the place {G-l in our «Ri/i) 

(quotient (ask ;self recall your mass) ;e take my mass 
(square (ask ;self yield distance to .place)) 

:; divide by the square if my durance fe the place re get force per second 
:frames-per-Second ;; divide by this to get force ^rr^rawtf 
;ticks-per -frame)) J divide to get force per hcA 
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(define gr a v 11 a t i on d I - f I e 1 d something 
; ; I never move or appear at] the ideen jo no need to be an object 
l i make the ftetd and tend it ltie following met sages 

(do when receiving (apply gravitational forces 9t fplate to 7veloc1ty) 

;; for me to apply the ^rauffafiajjeJ fortes at a place to a velocity 
Cask 5 self exert pulls of *,i 1 exert the pulls of the manes not at the place 
» { r emove * any- a t -p 1 ace {ask :self retail your masses) plate) 
on ,velocity at .plate)) ;; on rfic velocity 
(do when receiving 

(ftkert pulls of { Ifirst-mflSS Srest-Df-the-masses) on 7veloclty at Iplace) 

; ; to exert the gravitaliorml puli at a point of Some maijfi er\ a velocity 
(ask .velocity move P (ask .Tlrst-mass yield pull at ,place) in dlroetion 
from „place to ,(ask ,first-mass recall your position)) 

E; move towards the wum from the place by the puli (acceleration) fflf that place 
(ast :sclf exert pulls of , rest-of-the-tnaises on ,velocity at ..place)) 
i e arid let the r* 4 ( of She masses exert themselves flit the velocity 
(do when receiving (exert pulls of () on 1 at 7) 

:: El?A m there are no mtt mirier do nof,iriq.£ 
nil}) 

(define velocity object) ;? a velocity is an object ja that |j can move in velocity space 

(define ship physical-abject ;; nan/ lo define ships 
(do when receiving (thrust forward lamount) ;; W Am Tin asked to thrust forward 
(ask (veloclty-of *ESelf) 

Change your heading to , (ask iself recall your heading)) 

; ; / iff the heading of my velocity to my fla,n AdOffrjij 
(ask (veloclty-of p 3self) ;; and change my vetocity by 

i ; Aonrng If go forward the {pendent of ffie ihrutt and Wj jjierr 
forward .(quotient amount (ask ESClf recall ymir mass)))) 

(when drawing use draw-rocket of size)} 

;; and ) am. drown by rAr Draw-racket procedure applied to »tj size 

(define sun phys ice 1-object ;; a sun £j afu a phystcat'objett 
(sot your an^le to 10) ;; near fo a circle (really a 36-agon) 

(set your mass to 100) es the default mass of a iun it IQQ 
(when drawing use draw-poly of size anflla)) 
t; l am rfraurn wicu^ Drawpoly of my Jirc and angle 
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(0$k object ;; ft it reasonable to give this ability to all Object! 
do when receiving (move Inmount towards Tposltlen) 

(script: 

(let ( (original-heading (ask :self reeflll yoUr heading))) 

;; save the original heading 

(ask :silf change your heading to ;; cAonfr heading tc face towards position 
.(ask :self yield heading to .position)) 

(ask :self forward . amount) ;; go forward the amount 

(ask ;sBlf set yoer heading t® ,original-heading)))) ;; restore aid heading 


(ask object ;; re move parallel to a fine between the positions gSdrt 
do when receiving 

(move Famuunt in direction from tbepin-positlon to Tend-position) 

(script: 

{ let ((original-heading (ask :Salf recall your heading])) 

(ask :self 

sat your heading to .(headlng-from begin-posl tlan end-pos it I Od ) ) 
(ask :se1f forward .amount) 

(ask :self set your heading to .original-head lug)))) 

Now to test out this program we make a shen moviE. One ship will pass by a double star 
system. We define this AS follows 

(define enterprise ship a make a ship (ailed the enterprise 

(set your slate to (-1CQQ -4Q0 ge)) j; pat me an interesting starting state 

(show) ;; show Wfiitf 

(plan 

repeat (thrust forward 200) 5 times)) a (urn on thrusters for the next P ticks 
(define sunl sun ^ make sunt 

(set your position to (0 200)) ;s jfarf off 200 uniJj above the screen center 

(ask (velocity-of sunl) to forward 25) ;; start me off With a mtodtj of 2> upwards 

(set your size to mo) ;j ir a site 

(set your mass to 7OQ000Q)) jj and a big majj 

(define SUhZ Sun a this one IS a little Smaller and less massive 
(aslf (velocity‘Of SUhZ) to back 75} 

(set your position to (600 200 0)) jj itart off may to the right of SutjJ 
(set your size to 60) 

(set your mess to jOOOOOO)) 
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{ask-each '(sunl Sun? enterprise) plan next repeat {up-dete your state) forever) 

; an every tick send to tack of tke objects the message {updatt jour state) 

{ask sunl set your af tcr-show-a ct Son Lo {shada * llflhttextiire) ) 

; i so that it is shaded 

{ask sunl set your erfl.sablluy to nil) 

{ask sunl 'how) 

{ask sun 2 set your ofter'shawactlom to (shade > tex I u re)) 

; ; a darkei texture for $ur\2 

{ask sun? set your era lability to nil) 

{ask sun2 show) 

Cask gravitational-field Set your masses to {sunl sun2 enterprise));; tell the field about the objects 

, Eim'dking is ready re go, sc to test ij tee mat* a 10 Uek ttiDqmV. it can fee seen te Figure l 

{define tost-movic-i movie 
(film the next 10 ticks);; finally make (he movie 
{project)) ;; jA-rnv tkt rtTimif Of default speed and order 

E'll leave it as an exercise for you to finish the space war program Unfortunately, ii will be 
the slowest space war ever created. To speed things up very irmch^ we could compile our code as 
described in the next section 


1, it'll purvlijKh ‘-i'll liel iNmiijda to run fid £.1 jn 41 machine* 
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IX* Figure - 1 A Test of the Space War Program 
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X* Compiling 

There are some very fancy macros for compiling Director code into efficient Lisp w that it 
wilJ run at a more reasonable ipeed. There are three major optimizations, one is to compile the 
patterns given in "do when receiving' message* and database Inquiries, for example,the pattern 
(BELIEVED I (COLOR-OF 7THIWG TCQLOA)) 

becomes something like the following 

J this tJ I hi test part of rde pattern 
(LAMBDA (OBJECT) 
fANO OBJECT ; ; if U not NtL 

(EO (CAJt OBJECT) 'BFUEVEtk) ; i the first elemen f (j 'Mined. 

(CAUft OBJECT) ;; there is a s^rosi^ ttemeni 

(CO (CAADR, OBJECT) 'COLfMt-OF) ;; the first element &f the second is ’color-of 
{CDADfl OBJECT) ; ; then f* a Jffrari e/eea^nf of the second element 
(CilDAUfi OBJECT) ;; there is a (Gird dement of the second element 
(NULL (CDR (CHDADR OBJECT))) and t&'ra is ne fourth element 
(MOLL £COCR OBJECT)))) ;; ararf np third element a! alt 
■ this rj the part that finds the in the pattern (actually Fiwita rom.p/i£fffid but...) 

(LAMBDA (OBJECT) (LIST (CAR (CBDADA OBJECT)) (CADADA OBJECT))} 

;; return a list of the color end the thing 

This compilation or patterns happens throughout the system. The clause patterns and the 
data base inquiries are compiled. The clause patterns are also compiled into nested CONDs so 
chat redundant rests arc avoided, If you are curious about how this works create a simple actor 
and then as k it to save (iff description of "save Strife- -name" earlier) and It will return the Uisp 
optimized version of itself. (Note that this does not make the actor become that more efficient. To 
do that you should type (ev*1 (ask sue save})) 

A more important optimisation is the compilation of message transmissions, The typical 
message will be tried by several different actors as the message gets passed along to each actor's 
parent. Also the predefined actors SUfih as Something and Object have very many patterns to- tty 
out on rhe message. To skip all this computation a macro (or transmission (Ask) figures; out what 
action will be taken by Che tranjmJSiiOn and substitutes that action for the transmission. For 
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example,, the transmission 

{ask my-firiL-film project frames 3 to $) 

is replaced 

RET (( :S£lF 'MT-FrRST-FiLM| 

{ sME-SSAGF "(PROJECT FRAMES 3 TO $)))■ 

<M PROJECT FRAMES T&E&IN TO TEND )HDVJE | J) 

Where the Lisp function [ (PROJECT FRAMES ?,BEGIN TO TENDJHCVIE { corresponds to the action part 
Of Movie’s clause whose pattern is Kprojra frames ?begin to Tend}". This gptimiatMn has its price 
in terms of flexibility. Jf My-first-film is told a new way to project this Will have no affect upon 
the compiled code which contained the above transmission. In practice this is not loo serious since 
changes to the way chat Movie Itself handles this kind of "project frames - message will alTect 
cnmpiled code. This scheme works fine even when the message and larger contain commas 
indicating variables. 

What has been described so far, is the default action for compilation when no other advice is 
available. Et is possible to give advice as to how any particular message should be compiled, 

(ASK Tanyone COMPILE HF55AQE Tmessaffe-fom AS IN (ASK ?target-for* brassage))) 

The Compiler uses this message t* compile alt transmissions, The target-form and the 
meisage-form are from the actual transmission. The "message" it an example of the 

message-form . This message is sent to the target when incrementally compiling (as described 
below), Otherwise the actor m which the transmission is embedded (or Something if there Is 
none) L5 senr this message The following is a simple example or this ability to give the compiler 
ad v ice; 

fasfc (nacros-Eif something) do when receiving 

ii a patailtt parmt-offspring sinutur* is ktpt btginninf with the atom macrot-of 
(compile message (recall your parent) as in (ash !target-fortn Sj) 

■"{parent-or 'feetor-or .target-for*))> 

Using this advice the transmission 
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(asR ,same-actor rocall your parent) 
wilt compile tu 

(PARFNT-GF (ACTOR-OF SOME-ACTOR)} 

There ire a few macros for defining "macro" receiver! For an actor. ScnnelkHng and Object 
use them often so that messages that they receive are compiled efficiently. A Corresponding normal 
receive it also created so that while running interpretively there it no overhead. For more details 
54?c me. The cade produced IF1 I hit manner it very close lo the Lisp one might have Written. For 
exa mpk ! he tr a ntrmsiiofi * 

(ask something ask each or your offspring to print memory} 

■ ts eampHtd fnro 
fMAPCAR 

( FUNCTION (fcAMRfiA (ACTOR) 

(FAHClf-PRiHT '{MEKQRY) 

(M (GET-ACTOfl ACTOR) (ACTOR- AUTOLOAD ACTOR NIL)))))j 
(RECALL-VARIABLE '50WE TO INS '‘OFFSPRING)) 1 

(A$k Anyone COMPILE MESSA&E Sme-ssaga) 

This provides an easy way to jet how a message would hs compiled. For example, 

(aifc sally compile messago Charlie your color to blue) 

will return 

(CHANGE'•VALUE 'SALLY 'COLOR 'BLUE) 

There ire two ways in which you can use the compiler. One is Incrementally and all you 
need do is to type ( CGHPILER-SWITCH T) and U Is turned on. From then on ill transmissions will 
be replaced by their expanded form and their old form prefaced by the atom 'Expansion:*, 
(COMPILER-SWITCH NIL) wjM not only prevent new forms from being made but will dean Up old 
expansions 

To compile your Director code into machine language you tired to include the Director 
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declaration File into ynur file. At the beginning of you file you should hive: 

(INCLUDE |AI:KENi DECLARE >|> 

Use the GOMPLR when trying this. Tile V switch to the compiler has been added and means to 
- oJeverty" compile the transmissions. If you create any actors without using DEFINE then to get 
them compiled you should have the form '{COMPILE-ACTORS) 1 " at the end of your file. 


* 
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Odds Rrtid Ends 
Debugging 

For the most part debugging Director tl like Lisp, The -trace" message described under the 
Something section is helpful. There are three kinds of break points. Lisp ones, 
"shotsIdrit-happen" ones which indicate a system bug or a "rvehiUch-Actor'' dr a "bad-message" 

break. These last two are Often easy to recover from The 'no such-actor" break can be returned 
from as follows: 

(ask sue recan your parent) 

;Warning from ASK that SUE who was asked (RECALL YCRIR PARLllT} 1 5 not an actor 
;BKf*T MO -SUCH -AC TOR 

(?) ;; a goto! way tp gtt j Dm v hilp 

(ask Something make Sue] 

(return 'retry) 

SOMETHING 

If I had meant H jaHy n not "sue" then | could Simply have replied ( RETURN 'SALLT), Similarly the 
bad-message break poms can be returned from, If you fix it I* that the message Is receivable 
then just return 'retry, if the message was wrong just return the right message. When you got an 
error try typing "(?)" it might be helpful. 

Complete Description of Patterns 

A partem can be any hit structure, If an atom in the pattern begins with a T then 
anything car be in the corresponding position in the message. Jn addition, the Lisp variable 
whose name Follows the question mark becomes bound to the corresponding expression in the 
message. The ehtractor "£" is similar but will match the rest of the corresponding list structure, 
and so Should be used only at the end of a list (which can be a sub-ltsi oF course), An expression 
surrounded by curly brackets {} is also treated specially. If it begins with the word "OR" then if 
any Of the following expressions match the corresponding element in the message then the match 

j 
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continues, if the word u *AND t . thin atl the following expressions must match and all the 
bindings occur. Any other cxpressjon is evaluated and if It returns NIL the match falls. Such 
expressions can have an atom beginning with a V in it which becomes bound and then evaluated- 
For example, the pattern "fgreaterp ?n 33J' will match any number greater than 33 and n will be 
bound to that number. An error will result if the corresponding element is rot a number, however, 
40 to be safe yw should write the pattern as H jand {numberp ?) {greaurp ?n 33)f". 

Global Variables 

There are very few global variables, and even fewer worth knowing about, A few useful 
ones foUww, 

sSEUF ; i this it hfrtinrf to the acict n/fie originally received the message 

; i even if tin met sage Aar been pasiect along to an anctJfdr rr bandit 
i MESSAGE ; ; the menage fn question 

:TURTLE-FILE-WANE 

this it set to the normal tit turtle and should frr reitl if you want color for example 
: PftIHT-LGAD-MFSSAe.ES 1/ Nil. thin rtff message is typed w*irn a file Is loaded 

iHessage-ijot-uhdersicioc 

t i Us tKtVW il a function of the target and message and it should 

i l handles messages that Ore nef understood The default value puts you irj a break-point 
;AC TOfl-HOT-EEFI-N E D 

; 1 a function of the target anrf menage called when target it not defined 

? Ji This a very handy mriable, usually found to some help SO 

* ! fr 7 typing tt whenever ygy need tome help or (?) to print f mart nicely 
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Useful Lisp Functions and Macros 


Fd make life a little easier Ehere Is the "define" macro for defining' new actors. For example 
the definition of Poly is: 

(DEFINE POLY QBOECr i 

(SET YOUR ANGLE TO &D) 

(WHFN DRAWING USE DRAW-POLY OF (SIZE ’ANGLE))) 

You type the name, its parent and then a list of messages to be sent to this newly created actor. 
There is a variant of define called "Define-Or-add-tc-actor" lhat differs only in that If the actor 
already exists it adds to it, while “Define" will clobber the old one, 

The Lisp predicate "Exists?" of an actor returns NIL if the actor does not exist. "Actor-of" 
returns the internal representation of an actor if you are curious. There are also slight variants of 
the ’"ask" macro. They differ primarily in either how errors are handled or code is compiled. 
They are 

ASK -IF-EXTSIS Just tiki as4 except returns NIL if target dots not raijf 

ASK-IF-IJNGER5TOOD ; 3 art but JWtrtttS NIL If melsage not Imdersfacd 

ASK-.I! -<.'AH ;; refarn NfL if iiihtr actor riflf defined or message nof tttlderifcod 

llNCOMPILEb-ASK ;; ncrinaf ask but H mo/ So be compiled 

ASK-ALL ; ; ant all actors urAwe name matches the target 

t ; fg (ask-all (compiler-far ?} print memory) to get alt tke emptier s to print 

P0-AS-IF-Y04J-WERE i; Aas two targets, the first is the one fa be used for compilation 

i 1 for example, (dp-cudf-you-niere object .body gram ?Q0) 

You can defrne your own abbreviations by using "defi tie-abbreviation" which itself is 
abbreviated "da" If you are often asking Sally lot* of things then to abbreviate "ask, jally" Just 
enter 


fAria sal ask sally) ;; sal should be an dttrnlslih for cui salty 
(ftsal! Spin) 1; Test it out, this is same as typing (ask sally print memory) 
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Discussion of Why Direotor Is the W R y |* | s 

Director h Cbe w aIr it is mwrty brcauw | am a far, pf object-onem^ pngnmmh^ For 

* n|>l,te> iU * Wr " s th * moit "-""a* * tbMinv .bout «lnt happen* on , display Krten For 

k™i e d ge -b«ed pravnmmtaf the iwdutan tf i database with each actor and the inhcrlttna 
mechanism are very handy, More importantly the ability to arbitrarily mi* data and procedure 
(and different farm* of «ch) is a great convenience for representing ampkx knowledge For 
knowledge-based programming (be spectrum of fexIMJity , s nicely ipanred by the variably the 
database, the variable demons, the database demons, and the message receiving - all potentially 

usable by the Same actor. These feature lead natum% to very modular programs With all the 
advantages that that brings, 

Thf graphic! in ^'rector ti very strongly influenced by turtle, Director's objects ire 
generalized turtles that tin change appellant. ini remember thing, add,non tn the usual , urde 
actions. The pseudo-paralleltspn bated upon nets i, In Dirctcor to ease the lath of coord,nating ,h, 
action, of several different objects on«. For more about rick, see [Kahn I978J and among 

many [Paper, 1971a). [Papert I9TO4 [Goldstein 19751 (Goidsteln 19761 and [Kahn 1977b] are good 
sources far learning more about Curtiss 

One design deci,lon that may mike many a, peculiar I, ,he verbose „yte of programming in 
Director. The advantages are many Programs need few comments tmee .he code is Itself close eo 
English. Debugging i, »,ded by the tang, typical,, self-escplanamry. messages that are traced of 
seen at error break points. While someone on familiar with Director could not write any code, 
compared to most languages there is a good chance such a person could read the code. The 
obviou, Objection to such long messages that It necessitate, , w much typing I, jus, pi„ n fa „ e 
The abbreviation feature in Dttectof cuts down drastically the amount of typing needed while 
retaihirg all the advantages since the abhrevtation is expanded at read time. All of the 
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abb rev tar ion 5 iuf also a "v a liable Tor use by Emacs's abbreviation packaged This has the added 
features of expanding m soon as a space or parenthesis is typed and that Jit requires no character 
prefix, (This is why all the abbreviations that would be an English word have an "k* at the end ) 
Another common objection to such English-looking syntax For programs is that users get confused 
and expect paraphrases that are valid in English to be valid In the computer language This does 
not really apply to Director Since the user learns about pattern matching very early on and that It 
the only mechanism For "parsing'. 

Director Was built Upon MacLisp so that 9 could fall back upon Lisp for memory 
management, a garbage col I cc Lor, debuggers, readers, printers, an evaluator, and a Compiler (to 
machine code). The running of Lisp at low levels of Director made it feasible to put In m*ny 
cosily features in 'Ask" the basic transmission paechanlim of Director. The overhead or a 
transmission is reasonable for events of the sire typically dealt with by Director, A message-passing 
definition of factorial in Director, however, would, be exceedingly slow {though it would complk 
pretty well), This inefficiency need not be (he case with message-passing languages — witness 
Smalltalk and Act 1. Ideally Director should have been built upon such a base to make things 
more consistent — everything could then be an actor. 

Discussion of Why One Might Want to Use Director 

ll’i bath fdn and good for Writing real programs (i.e. long complex movie* or large Al 
programs). 


1. F.marj; is Jin excellent tci.1 r-Hitor drve, rcprrl al the MIT Artificial Intelligence Lull fay HitfiArd St*Um?n 
£fhI others The aHpreviiticn pjckaec in Eihjim wbs developed by Eugene C Cr&c-irriti. 
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Getting Btnrted 

Couldn't be easier (well a fanout} , You type:^ 
iDIRECT 

After you see the message "Welcome to Director" you CSfi type, Iqr e*?.mple, 

(DEFINE STAR POLY (SET YOUR .ANGLE TO JJfl) (SHOif)) 

and you should See a star appear orv your TV. Type "(?)" for a little bit of help., If want to use 
only part of Director Of ate running it in color (in which case you should type (run-color) before 
doing anything on the screen) then type 
:LISP K€Ni,ni«ECT 

and a,s you need things the appropriate files wilt be loaded. Have fun ami report any problems to 
KEN*AI 


A gkjjOW lodgements 

I wish to thank Carl Hewitt and Henry Lieberrnan for the help and support they have 
provided. Hal Abelson and Bill Kornfeld provided many important suggestions as to the form 
and content of this guide jerry Barber, as Director 1 * first user, provided me with suggestions, 
discovered bugs and noticed mining feaLures. Ira Goldstem provided many ideas when Director 
was first being developed. I wish I could acknowledge SmallTalk as a dirtet source of ideas, but 
unfortunately I was ignorant of it* details and rediscovered many of ihetr ideas on my own. The 
Learning Research Group at XtrOK Parc pioneered in the development of object-oriented 
programming and graphics for whkh i am Very indebted. 


1. l>tnTl Jd ihm if yau are iwl on a TV er arc planning Is ran Diraaitfr jn c^lpr- 
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XIII. Index of Patterns 


Message Pattern 


(MAfcE 7na>me) 



PdlftTJii that Ssincthtn^ Hiiidtei 


(MAKF INTERNED OFFSPRING) .... 

(HAKE UtirNIERNFD OFFSPRING) ... 

OF NEW MAICE ?nana) .„... 

(MAKE COPY ?s1b11n<j) ... 

(MAKE V S YNQN YW Yrwrnie) .„„ 

(00 WHEN RECEIVING Tpitter* XacUon) 


.Abbreviation Page 


a 

....* min fl 

mub 8 

.. Inn 7 ft 

me T ft 

.... ifli T ft 

dm- 1 % |ft 


(EXTEND BEHAVIOR WREN RECEIVING Tpattsrffl BY DOING XS-uma-actton ) ++1 .„, ebwr 7 bd 10 

(PRINT Kept ton) --........ .... ps OR pn OR pv OR pdb || 

(SAVE xrtla-name) ....... . R 

(HELP Kp at tern) . .... .. 


(RECALL CLAUSE FOR Xsampla-message) ... 

(REMOVE CLAUSF FOR X sample-message I .. . 

(TRACE 1 pat tarn Xaction) ...... 

(UN TRACE Tpattarn) ........ 

(for CHANCE SET I YQUH Tvariable TO 7new-value) 

(RECALL YODfl ?vartable) .... 

(KECALL EACH OF YCHIft ?VArtable-patternj .. 

(INCREMENT YOUR ?vartablc9V Tanount) 

(ADO ?new-item TO YOUR LIST OF ?llit-name) .. 

(AOD ?n.ew-llem TO YOUft LIST OF 71Ist-nama REGARDLESS) 
(REMOVE ?eid-item THOM YOUfl LIST OF 71tst-nflme) 


ref 7 


.. ay ? te ? OR ty 7 tn ? 

..ry t 

.reoy 7 

... ty 7 by 7 

add 7 ty 1 o 7 

.. add 7 tylo 1 rag 

.......... remove ? fylo ? 


it 


It 


13 

13 

14 
W 

15 

16 
\& 
IT 
17 
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(ndsM pr Patterns 
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(LIST ALL TOUR VABTABLE NAMES) . 

(FORGET YOUR ?V*ri ablest tern ) .....„ 

(ME MORI IE 7Hwi) ............„.„. 

(RECALL IF AMY TTFUS MATCH ?pflttero) .... 

(RECALL AH ITEM HATCHING TpaUern THEM faction) 

(COLLECT ITEMS MEMORIZED MATCHING Tpatttrn) ... 

(FORGET ITEMS MATCHING Tpattera) .... 

( PI AM NEXT Suction) . 

(PLAN AFTER Fnuntmr TICKS Xact Ion) ... 

(PLAN AFTER ?number SECONDS taas&age) .... 

(PI AM AF TER RECEIVING Tevent-pattern TO 7messagG-Tdrm) 


............. layvn 

Ty 7 

.........„. rT ncdt ? 

.- rlaln ? 

. relnt 7 then 7 
..... e trim 7 

...... f im 7 

pri 5E 

pa 7 ticks S 
pa 7 seconds X 
parx 7 to 7 


(PLAN AFTER RtCLIVING ?ev ( n t-pattern TO ALWAYS ?messa gB - Torn) .parx T ta 7 

(REPEAT Tmessage Tmrfflber TTMES) ....... dji 

(REPEAT Tmessage ?number TIMES EVERY ?s p -many TICKS> .. rapeat 7 7 te 7 ticks 


(REPEAT Tnessage FOREVER) 


(TICK) ........ 

(ASK YOUR ?variab1« TO Smessagc) __ 

( ASK EACH OF YOUR ’variable TO Smossafl*) 

(ASK ’another TO XruEssage) .. 

(DO THE FOLLOWING i KME5SAGESJ .. 


... ay 7 to x 
aaoy 7 t o * 


. dtf % 


(KEEP GOING UNTIL 7pre<J1cate 


kdu 7 x 


Patterns that Object Handles 
(WHEN DRAWING USE 7draw-procedure OF (draw-ergs) 

( SHOW) ......... 

mt>ty ............. 

((and ?com™nd for pp FORWARD RT RIGHT LT LFFT JJK BACK ] J Famnunt)) 


I? 

17 

99 

2D 

20 

21 

23 

23 

2 + 

21 

21 

25 

25 

25 

25 

26 
26 
2D 
27 
27 
26 

30 

32 

32 

32 
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(GRADUALLY ?cprxD4nd Tannunt) , 1 , Jkl . li ,. 

(Ft 1GHT-REVOLVE YdagrEES ) ....... 

(LEFT-ftEVDLVE ^degrees) .................„. f . r 

(ti RAOUA L L Y RIGUT- REVOLVE ^degrees J .. „„ 
(GRADUALLY LEFT-REWLVE 7degrees} ........ 

(SETXY 7new-x ?new~y) ....... 

(SETX 7n«w~x) .,.... 

(5ETY ?ne*-y) ... 

f SET TURTLE ( ?new-x 7new-y ?ncw-head ing )) 

(SETTfEAOING ?fi ew-h 6-fl dt h gs) ... 

(DEl.XY 7de1ta-x ?delta-y) ,... . 

(DELX 7dfi ) .... 

(DELY ?deUa-y) ... . 

(CHANGE YOUR STATE TO 7new-state) 

(CHANGE YOUfi POSITION TO Tnew-posttlon ) . 
(CHANGE YOUR HEADING TO Theming) .......... 

( CHAN GE YOUR XCQR TO ? n OH-XCor ) .., .. 

(CHANGE YOUR YCOR TO 7new-ycor) .. 

(RECALL YOUR STATE) ... 

(RECALL YOUR POSITION) .... 

(RECALL YOUR HEADING) .. 

(RECALL YOUR XCOfl) ............. 

(RECALL YOUR YCOR) .... 

(GRADUALLY PELS Idelta-x) ..... 

(GRADUALLY DELY ?delta-y) ........... 

(GRADUALLY OELXY ?dE)ta-X TdflTta-y) .. 

(GRADUALLY SET TURTLE Tnew-ststs) ............ 


. grad 7 7 

....... rr 7 

.1r T 

.grr ? 

^,-Blr 7 


. sett (77?) 


-m cyst T 

.cypt 7 

.... cyht ? 
.... cyxt 7 
.cyyt ? 

■■■.Cyp 

.,...ryft 

. ..ryx 

...... >..ryy 

...gdol* 7 
...QdaTy 7 
.oUelxy 7 
...gsett ? 


33 

33 

33 

33 

33 

34 
34 
34 
3+ 
34 
34 
34 
34 
34 
34 
34 

34 

35 
35 
35 
35 
35 
35 
35 
35 

35 

36 
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(GRADUALLY SETHEADING 7ni)W-h<ra<Jing ) .. 

(GRADUALLY StTX 7new-x) .... 

(GRADUALLY SCTY ?niw-y) ........... 

( GRADUALLY SETXY 7nGW-X Tfla w-y) .,'..... 

(GROW ?amount) ....... . .. 

(SHRINK ?anwunt) .... . 

( GRADUA LLV G ROW ?amou n t) .___ 

(GRADUALLY SHRINK Tamonrit) .... 

< GRADUALL Y CHANGE YOUR ?var Iah 1 f: TO 7nBn -va 1 ue ) ...... 

(GRADUALLY INCREMENT YOUR frarTable BY 7add1t1on) ... 

(CHANGE YOUR COLONS TO TccTors IN Tn Umber TICKS) .. 

(PREPARE TO MIX COLORS WITH Totlier-colors) ... 

(NAKE Tname INTERPOLATION TO ?anothflf-object) ......... 

(MAKE INTERPOLATION TO ?Another-object) ........ 

(RON faction) -.......... 


.T 

T 

....flsety 7 

.ys,etxy T 


................. t , ss 7 

US 7 

......... ocy ? to T 

......... gly 7 by 7 

cyct 7 In 7 ticks 
ptmcw 7 


............ nHx 7 


36 

36 

36 

36 

36 

36 

36 

36 

37 
37 
3? 
10 
10 
II 
11 


(SILENT RUNNING) 
(NORMAL RUNNING) 

(WIPF) ... 

(CLEARSCREEN) ... 


Pattern I thal Screen ttmdlil 


i - r + n ■ ■ r r ■ i ii i ■ ■ IT 


nr 


■ _ _ i _.. . _. 


cs 


11 

11 

14 

44 


Palter nj tbst Universe Handler 
(RUH FOR 7length TICKS) .... 


46 


Patterm that Movie Handler 

flFILtl THE NEXT 7f 1 lut-length TICKS) .. 

(FILM SECRETLY THE NEXT ?1ongth TICKS) ... 


. ftn ? ticks 
fatr 7 ticks. 


47 

46 
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(PROJECT) .. 


JiQ 

(PROJECT FRAMES ?begln To 7entt SMOVlNG EVERY Is d- many) . 

(FFOJFCT FRAMES ?bfvgtn Id ? E fld \ 

- fnfS 7 tD S« f 

+8 

f PROJECT STARTING AT FRAME Tfotgln SHOWING EVERT Tso-nany) 

pjfll T sa 7 

45 

(PROJECT SHOWING EVERY Tan-many} 


il 

(PROJECT FRAME Tnumb&r} . 


(SMART COMPILE xn it-nans) 


TO 1 

49 
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XIV* Index of Special Variables 


Variable Pattern 




■ .Abbreviation Page 


Variable} Treated Specially by Something 

( 7 var table-name ACTI0N5- IF-.RECALLIN'D) .... 

<?vartable-name ACTIONS-IF-CHANGTNG) .. 

(?f Ira t-e tenant IF- RE CAL L1NB-1TFH5 } ..... 


( 7first-elemeot ACTI0M5-IF-HEN9RIZI N£) 
name ........ 


parent . 

OfTSpring 

siblings 

•descendants 


Ch1 Idless-descendants 
Universe .. 


thlngs-to-dn-nc^t 


■ + * «■■ 


H M • I 1 PI 1 I M I I ■ IJ 1 Ll j U j . 


Vvisiles Treated Specially by Object 

after - show-act Ion .... . . 

of ter-h tde-act ion _____ _ _.... 

erasabll 1 ty _. 

Center-offset ... . . 


hei ght ■■■■■■■...., 

Width .. 

visible-objects 


Variables Treated Specialty by Screen 


i 

*........ +Hrr+ 





,. ff airx) 

. d ate) 

.... (r iri) 


...efts 
..... a ib 
..... des 

....... cd 

.... uni 

... ttdn 


. .asa 
. .aha 
eras 
... co 


VC 


Id 

19 

21 

22 

2S 

29 

29 

29 

29 

29 

29 

29 

aa 

3S 

3A 

39 

45 

d5. 
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attors- cq— run -fi ex t 

f r ane*-p or - s e c On-d 

t f e fc.5-per-f rame 

SpBetl .. 

rFPw-frame-actldh 


incfe* of Spocisf VeriobJtHj 


kormaih K&hn 


Variable J Trfared Spttia&j by Universe 


.atrn d& 


Variable j Treated Specially bi HCovie 

.....-. ^ fps 47 

........ ■■ tpr 47 



• nfa 49 
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